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Exhibit 12 



Unpolished and confidential. Not to be reproduced, 
disseminated, transferred or used without the prior 
written consent of Eaton Corporation. 

Copyright Eaton Corporation, 1993-94. 
All rights reserved. 



Filename: oTt^dKlfe (AutoSplit) 
Description: 

The functions in this file will perform the required operations 

for controlling drivel ine components on the J1939 communication link. 

Part Number: <none> 

$Log: R:\ashift\vcs\drl_crads.c9v $ 

Rev 1.9 25 Feb 1994 16:07:40 schroeder 
Removed predip's (experimental) BIN 8 ramp off rate- -no longer needed. 
Added condition to predip's torque bumps: timers are frozen until 
actual_engine_pct_trq responds. Important when engine brakes are on. 
Made RECOVERY_STEP_TABLE [] a constant value—all ratios used 8X. 

Rev 1.8 21 Feb 1994 15:07:26 schroeder 
Replaced shi f tabi I i tyjnode with new flag, engine_brake_avai I able. 

Rev 1.7 03 Feb 1994 15:57:28 schroeder 
Added setting of command_ETC1 to each command function, enabling 
over speed during control_engine_predip( ) and control_engine_sync<) and 
disabling over speed during all others. 

Rev 1.6 17 Nov 1993 09:50:10 amsallen 
In the initiate function, net_engine_pct_trq was replaced with 
act_engine _pct_trq since desired_engine _pct_trq values are in indicated 
power not net_power. Also the sync_timer timeout was reduced to 100 for 
down shifts and 200 for upshi f ts(1~second and 2 seconds) rather than 200 
for all shifts. Also the delay at 0 torque after a time out was increase 
from 150msec to 250 mesec. 

Rev 1.5 04 Nov 1993 09:16:08 schroeder 
In RECOVERY_STEP_TABLE U , restored the value for sixth gear to 8%. 

Rev 1,4 02 Nov 1993 09:40:06 schroeder 
Replaced de*nand_eng i ne_pc t_t rq with pct_demand_at_cur_sp. Engine 
speed limit during torque limit operation changed from high idle to 
8031 rpm, as suggested in J 1939/71. 

Rev 1.3 11 Oct 1993 14:22:40 schroeder 
Removed cruise_control_active flag; replaced accel pedal with 
demanding i ne_pc t _ t rq . 

Rev 1.2 22 Sep 1993 10:48:22 amsallen 
The function control engine sync was changed to resolve OR 3235ma08.deb, 
clunky low throttle high range shifts. The engine target now moves above 
sync when i nput_speed • sync < 40 rpa and transmission position » engaging 
rather than just tp * engaging. See OR 3235ma08.deb for additional details. 

Rev 1.1 01 Sep 1993 14:09:52 schroeder 
In control_engine_sync, modified dither to insure that the engine 
target stays below sync for a range shift. Also, the dither amount 
increases from 35 rpm to 100rpm, then repeats. 

Rev 1.0 29 Jul 1993 16:40:40 schroeder 
Initial revision. 



* Header files included. 
* 

# include <exec.h> /* executive information */ 



finclude <c_ress.h> 
finclude <wwslib.h> 
finclude °cont sys.h" 
finclude »conjT939.h« 
finclude -drl cnfc.h* 
finclude "trn_tbl.h» 
finclude u sel gear.h" 
finclude M calc_spd.h» 
finclude "trns^act.h" 

fpragma re entrant 

* #defines local to this file, 
fdef ine USJ>ER_LOGP 10000U 

fdefine ACT I VE_RECOVERY_GEAR 10 /* rule out boosting dour* for now */ 
* 

* Constants and variables declared by this file. 
* 



/* a internal register definitions V 
/* contains coosm globs I defines V 
/* control systea information */ 
/* defines interface to j1939 control module V 
/* drive line commands information */ 
/* transaiission table data structures */ 
/* access to speed filter values */ 



/* public */ 



register uchar engine_commands; 

register uchar engine_status; 

uchar desi red_sync_test_mode; 

/* uint desi red_eng_spd_new; */ 

/* uint desi red_eng_spd_delta; */ 

/* uint desired_eng_spd_dif f ; */ 

ui nt des i red_eng i ne_speed_test ; 

ui nt des i red_eng i ne_speed_ramp; 

uchar desired_engine_speed_timer; 

uchar des ired_engine_speed_ time; 

uchar eng_brake_cownand; 

uchar eng_brake_assist; 

uchar posi t ive_pedal_*rans; 

uchar sync_f irst_pass_ timer; 

uchar clutch_state; 

uint clutch's I ip_speed; 

int dos_f iltered; 

int overal l_error; 

unsigned int os_based_on_rcs; 

unsigned int input_speed_f i Itered; 

unsigned long is_f i I tered_bin8; 

unsigned int output_speed_f i Itered; 

unsigned long os_f i ltered_bin8; 

signed int i npu t_speed_acce I _f iltered; 

signed long dis_f i I tered_bin8; 

char eng_percent_torque_f iltered; 

char percent_torque_accesaor1es; 

char needed J*rcent~for_xero_flywheel_trq; 

uchar zero_f lyWieel^trc^tinerT 

uchar zero~f lyvheel^trqjLfma; 

uchar accelerator _pedat_pe*ition_old; 

int input_shaft_accel_cslculated; 

uint gos; " /* overall destination gear ratio * output speed SIM 0 V 

int gos_signed; /* overall destination gear ratio * output speed BIN 0 V 

uint gos_current_gear; /* overall current gear ratio * output speed BIN 0 V 



unsigned char sync_first _pass; 

unsigned int syncjnaintain_timer; 

signed int sync_offset; 

signed int sync3dos_offset; 

signed int sync_dos_of fsetJCI; 

signed int sync~speedjnodif ied; 

unsigned char intent_to_shift; 

char intent~f inal_pct_trq; 

char intentj"amp_off_rate; 



/* local */ 



static uint pctdfp_tia*rj; 
static uchar predict \w*f Jt? 
static uchar pradip^tiaaO; 
static char predip_torqua_buBp_valua; 
static uchar pr*dip_tcrqua_cuap_t1a»; 

static uint 8yncj)n_t inar; 
static uint aync^off^tiaar; 
static uchar s yncjj i t ha r_ t i raef ; 

static uint torque_limit; 
static uchar recovery_cancel_timer; 
static uint recov_coast_down~tmp1 ; 
static uint recov~coast~down~tmp2; 

static int dgos; 

static int lpf_output_accel; 



#pragma EJECT 



it«*tt*tt»*t* f >« i M* t »t « M 

* PREOIP MODE CONSTANTS 



tacrine 


PRED I P_ZERO_ruBK_ T IHfc 


/ft 


/ 


0.40s 31 0ms period 


voetine 


ooen i D~TnenTtc 7CDO TffcfF 


A/I 


/* 


ft Afte 21ftmo rtA r* i 

u . ous aiiuns penaa 


#def ine 


predip"mornal"tine" 


200 


/* 


2.00s 310ms period 


#define 


toroue~ramp_off_rate 


1 


/* 


1% (per loop) V 


#def ine 


PREOIP TORQ BUMP VALUE 10 


0 


/* 


OX */ 


tfdef ine 


PRED IP~T0RQ~BUMPJT IME_L0 


15 


/* 


0.15s 3 10ms period 


#define 


PREOIP TORO_BUMP_VALUE_MED 


5 


/* 


5% V 


#define 


PRED I p'tORoTbUMP^T IMeJJeD 


25 


/* 


0.25s 310ms period 


tfdef ine 


PRED IP TORQ BUMP VALUE HI 


10 


/* 


10X */ 


#define 


PRED I P~T0RQ~BUMP~T IME Ji I 


30 


/* 


0.30s 3 10ms period 



* 

* SYNC HOOE CONSTANTS 

* 



#def ine 


SYNC J) I THER_T I ME_AB0VE 


20 


/* 


0.20s 3 10ms period 


*/ 


#def ine 


SYNCED I THER~T I ME~BEL0U 


30 


/* 


0.30s a 10ms period 


*/ 


#def ine 


SYNC~D I THER~RPM ~ 


35 


/* 


35 rpm 


V 


#def ine 


SYNCED I THER~F I RST_T I ME 


255 


/* 


DUMMY VALUE 


*/ 


^define 


MAINTAIN SYNC TIME 


500 


/* 


5.00 Sec 


V 


#define 


SYNC FIRST PASS TIME 


250 


/* 


2.50 Sec 


*/ 


#define 


THREE PERCENT 


3 








#def ine 


ENG RESPONSE UPSHF_TIME 


10 


/* 


10 msec 


•/ 


#def ine 


eng~response~onshf"time 


10 


/* 


10 msec 


*/ 


#define 


SYNC DOS OFFSET CONSTANT 


2816 


/* 


11 BIN 8 


*/ 



* 

* RECOVERY HOOE CONSTANTS 

* 



#define RECOVERY CANCEL TIME 10 /* 0.10s 310ms period 

define REC0VERY~CANCEL OFFSET 20 /* 20% BIN 0 */ 

#define REC0VERY~T0R0UE~STEP 1280 /* 5% BIN 8 */ 

#define THL0 DS ENG DECAY K1 450 

^define THL0~OS~ENG~0ECAY~RAMP 1 /* 1 rpra BIN 0 V 

#define THL0J>S~FInTshEDJ)ELTA 200 /* 200 rpm BIN 0 */ 

static const uint RECOVERY RATE TABLE [23] = 
i 



o. 


/* 


-4 


*/ 












o. 


/* 


-3 


*/ 












128, 


/* 


-2 : 


0.50% 


per 


loop 


BIN 


8 


V 


128, 


/• 


-1 : 


0.50% 


per 


loop 


BIN 


8 


•/ 


128, 


/* 


0 : 


0.50% 


per 


loop 


BIN 


8 


V 


128, 


/* 


1 : 


0.50% 


per 


loop 


BIN 


8 


V 


128, 


/* 


2 : 


0.50% 


per 


loop 


BIN 


8 


V 


128, 


/* 


3 : 


0.50* 


per 


loop 


BIN 


8 


*/ 


128, 


/* 


4 : 


0.50% 


per 


loop 


BIN 


8 


V 


192, 


/* 


5 : 


0.75% 


per 


loop 


BIN 


8 


*/ 


192, 


/* 


6 : 


0.75% 


per 


loop 


BIN 


8 


*/ 


192, 
281, 


/* 


7 : 


0.75% 


per 


loop 


BIN 


8 


V 


/* 


8 : 


1.10% 


per 


loop 


BIN 


8 


V 


281, 


/* 


9 : 


1.10% 


per 


loop 


BIN 


8 


•/ 


281, 


/* 


10 : 


1.10% 


per 


loop 


BIN 


8 


*/ 


o, 


/* 


11 


*/ 












0. 


/* 


12 


*/ 












o, 


/• 


13 


V 












o, 


/* 


14 


*/ 












o, 


/* 


15 


V 












o, 


/* 


16 


V 












o. 


/• 


17 


*/ 












0 


/* 


18 * 


/ 













>; 



* Function; 
* 



initialize driv«Unt data 



Description: 

This function, called after all resets, will initialize the system 
copy of drive line related data received from the communications link. 



static void initialize drivel ine data(void) 
i 

accelerator _pedal_position * 0; 
engine_cc<nmunication_active * FALSE; 
engine^brake^avai labTe * FALSE; 
eng^brake.coSmand * ENG BRAKEJDLE; /* 
clutch_state * ENGAGED;" 
positive_pedal_trans * FALSE; 
zero_f lywheel_trq_timer * 0; 
zero_f lyvheel_trq_time = 0; 
percent_torque_accessories = 3; 



should init with eng i ne^coomands 



/* 
/* 
/* 



debug use only 
debug use only 
debug use only 



desired_sync_test_mode * FALSE 

desired_engine_speed_test * 0 

o>9 i red"eng i ne~s peed" ramp = 0 

desired^engine^speed"* 0; 
/* des i red_eng_spd_ne« = 0; 
/* desired_eng2spd"diff ■ 0; 
/* desired_eng_spd_delta = 10; 

desired engine speed timer = 0; 

sync jios_off set JC1 »~SYNC_DOSJ)FF$ET_CONSTANT; 

desired_engine_speed_time = 0; 

intent_to_shif t = FALSE; 

intent_f inal jxt_trq = 0; 

intent_ramp_of f_rate = 1; 



delete later 
delete later 
delete later 



V 
V 
V 



*/ 
*/ 

V 



#pragma EJECT 



* Function: control_engine_predip 

* Description: 

* Determines throttle command for predip mode. 
• 

* After a reasonable delay for the transmission to pull to neutral the 

* torque will be cycled from zero to a determined value to help the 

* transmission achieve neutral. 
* 

static void control engine_predip(void) 
( 

if (engine status M ENGINE PREDIP MOOE) 
C 

engine.status = ENG I NE.PRED I P.MOOE ; 

predip_timer_1 = 0; 
predip~timer.2 = 0; 
predip_timer_3 = 0; 

if (actual engine jxt trq < 5) 

predip.timerj = PR ED I P_NORMAL_T I ME ; 
else 

desired engine_pct trq = actual.engine_pct.trq; 

> 

engine control = TORQUE CONTROL; 
comrnand_ETC1 = C_ETC1_0VERSPEED; 

if (predip timer 1 < PREDIP NORMAL TIME) 

if ((desired.engine _pct_trq >= TORQUE.RAMP.OF F_RATE ) && 
(actual engine_pct trq > 0)) 

C 

desired engine_pct_trq -= TORQUE RAMP OFF.RATE; 

> 

else 
C 

desired_engine_pct_trq = 0; 

/* check to force bump if neutral not achieved */ 
if (actual engine _pct trq < 10) 

C 

if (++predip timer 3 >* PREDIP ZERO FDBK TIME) 
predip.timer 1 = PREDIP NORMAL_nME; 

> 

> 

♦♦predip timer 1; 

> 

else 
i 

if (<lpf output accel > -ISO) && 

(predTp time? t < (PREDIP NORMAL TIME ♦ PR ED I P_TORQUE_ZERO_T I ME ) ) ) 

C 

predip torque bump tint * PREDIP TORO BUMP TIME_LO; 

predip"torqut"b40p"vslut » PftE0IP.TORQ.BUMP_VALUE.L0 ♦ needed _percent.for_zero_f lywheel.trq; 

> 

else 
i 

if (predip timer 1 < (PREDIP NORMAL TIME ♦ 2*PREDlP_T0R0UE_ZERO_TIME)) 
( 

predip torque bump time » PREDIP TORQ BUMP_TIME_MED; 

predip~torque~bump~value - PREDIP TORO.BUMP VALUE MED ♦ needed _percent_for_zero_f lywheel_trq; 

> 

else 
C 

predip torque bump time - PREDIP TORQ BUMP TIME HI; 

predfp~torque~bump~value ■ PREDIP TORQ.BUMP.VALUE.H I ♦ needed _percent_for_iero_f lywheel.trq; 

> 

> 

if (predip timer 2 < predip torque bump time) 
< 

desired_engine_pct_trq = predip_torque.bump.va I ue; 

if (actual enginejict trq > 0) 

i 



> 



> 

> 
C 

desired_engir*jxt_trq » 0; 

«~*predip_ti«ec_1; 

♦♦pr edi p"t i tmr~2j 

> 

if <pr edlp_titatr_2 >« PRE01PJORQU£_ZERO_TIKE) 
pr«dip_ti[ner_2 » 0; 



> 

#pragma EJECT 



* Function: controller* ine_sync_l ever (AutoSplit) 

* ~ 

* Description: 

* This function synchronizes engine speed to output shaft speed 

* during a shift. 



static void control engine sync_l ever (void) 
( 

if (accelerator_pedal jx>sitton > THREE PERCENT) 
syncjnaintain_timer * MA I NT A I N_SYNC_T I ME ; 

if ((engine status !* ENGINE SYNC MQOE) || (sync maintain timer « 0)) 
< 

sync_on_timer 3 0; 
sync_of f_t imer = 0; 

if (engine status 1= ENGINE SYNC MOOE) /* first time through sync */ 

sync maintain timer = MAINTAIN SYNC TIME; 
engine status"* ENGINE SYNC MOOE; 

> 

else /* sync maintain_timer reached 0 */ 

i 

engine control = OVERRIDE^ I SA6LE0; 
command ETC1 = C ETC1 NORMAL; 

> 

> 

else 
( 

syncjna i nt a i n_t i mer- - ; 

if (sync on timer++ <= 296) /* allow sync mode for about 3 SEC V 
i 

sync_of f_timer = 0; 

engine control = SPEED CONTROL; 

conmand_ETC1 * C_ETC1_OVERSPEED; 

if (shift type == UPSHIFT) 
( " * 

sync offset = -65; /* RPM V 

) 

else /* shift is a downshift */ 
( 

sync offset * -65; /• RPM V 

) 

if (gos signed ♦ sync offset > 0) 
( 

/* desired_engine_spe*d * (int)(0os_signed ♦ sync_of fset); */ 

cx = doe filtered; /* BIN 0 V 

"bx » trn"tbl.gt«r ratioldeetination gear ♦ GR OFSJ; /* BIN 8 */ 
"ax * sync do* offset IC1; /• BIN 8 */ 

ism mul .cxdx,""..*; " /* BIN 8 V 

asm div "cxdx, "ax; /* divide by constant BIN 8 V 

sync_dos~of fset"« _cx; /* save final result BIN 0 */ 

desired_engine_speed ■ ( int)(gos_signed ♦ sync_offset ♦ sync_dos_of fset); 

#if (0) 

desired_eng_spd_new * (int)(gos_signed ♦ syncjsffset); 

if (desired_eng_spd_new > desired_engine_speed) 

desired_eng_spd_dTff ■ des i red_eng_spd~new - des i red_eng i ne_speed; 
else 

des i red_eng_spd_d i f f * desired_engine_speed - des i red_eng_spd_new; 

if (desired_eng_spd_d1ff > des i r ed_eng_spd_de 1 1 a ) 
desired engine speed * desired eng spd new; 

#endif 



else 

desired engine speed ■ 0; 

> 

else 

if (sync off timer <» 4) 

t 

sync off timers; 

#if <0> 

engine_control » T0RQUE_C0NTR01; 
conroand_ETC1 » C_ETC1_0VERSPEED; 

desired engine_pct trq * needed ^percent for zero flywheel trq 

#endif 

> 

else 

sync_on_timer 3 0; 

> 

> 

> 

#pragma EJECT 



/ 

* 



* Function: control_engine_sync_auto (AutoSptit) 

* — ™ 

* Description: 

* This function synchronizes engine speed to output shaft speed 

* during a shift. 



static void control engine sync auto(void) 
C 

if (accelerator_pedal_position > THREE_PERCENT) 
syncjnaintain_timer = MA 1 N T A I N_S Y N C_T I ME ; 

if ((engine status I* ENGINE SYNC MOOE) || (sync maintain timer «« 0)) 

sync_on_t imer a 0; 
sync_off_ timer s 0; 
sync first_pass = TRUE; 

sync J i rst_pass_t imer ■ SYNC_FIRST_PASS_TIME; 

if (shift_type == UPSHIFT) 

sync_of f set = -65; 
else 

sync_offset = 65; 

if (engine status != ENGINE SYNC MOOE) /* first time through sync */ 
( 

sync maintain timer = MAINTAIN SYNC TIME; 
engine status"* ENGINE SYNC MOOE; 

) 

else /* sync maintain timer reached 0 V 

< 

engine_control * OVERRIDEJHSABLED; 
command ETC1 = C ETC1 NORMAL; 

> 

) 

else 
i 

syncjna i nta i n_t i mer- - ; 

if (sync on timer++ <= 200) /* allow sync mode for about 2 seconds */ 

C 

sync off timer = 0; 
engine_control = SPEED_CONTROL; 
command_ETC1 * C_ETC1_0VERSPEED; 

if (sync first^pess == TRUE) 
{ 

if (shift type =» UPSHIFT) 
( 

sync speed modified - (signed int)( input speed) ♦ 

(input_speed_8ccerfiltered /(1000/ENG_RESPQN$EJJPSHF_TIME)); 

if (sync speed Modified < gos signed) 

if (sync first _pass timer 0) 
i 

gync_offs*t ■ 65; 

sync first _pm ■ FALSC; 

> 

else 

sync first _pass timer*-; 

> 

> 

else /* shift is a downshift */ 
i 

sync speed modified 3 (signed int)( input speed) ♦ 

(input_speed_acceCfiltered /(1000/ENG_RESPONSE_DNSHF_TIME)); 

if (sync speed modified > gos signed) 
( 

/* if (sync first_pass timer *■ 0) */ 
/* < " V 

sync_f irst_pass « FALSE; 

if ( pc tjiemend^a t_cur_sp < 15) 
sync_offaet ■ -65; 



/* > V 

/♦ eltt V 

/* tync fir*t_p«M tiaer--; V 

> 

> 

> 

if (gos_signed ♦ sync_offset > 0) 

desired_engine_speed « (int)(gos_signed ♦ sync_of fset); 
else 

desired engine speed * 0; 

> 

else 
t 

if (sync off timer <= 4) 
< 

sync off timer**; 

#if (0) 

engine control » TORQUE CONTROt; 
command_ETCl a C_ETC1_0VERSPEED; 

deslred'engine _jxt trq = needed_percent for zero flywheel trq; 

#endif 

) 

else 
< 

sync_on_timer ■ 0; 

sync~offset * -(sync offset); /* force sync speed to toggle around gos 

> 

> 

> 

> 

#pragma EJECT 



* Function: cootrol_engine_sync (AutoSplit) 

* "~ 

* Description: 

* This function synchronizes engine speed to output shaft speed 

* during a shift. 
* 

*«*****************«*««***********«*^^ 

static void control engine sync (void) 
( 

if (shift_init_type == AUTO) 
com ro l_eng i ne_sync_auto( ) ; 
else 

cont ro I _eng i ne_sync_l ever( ) ; 
intent_to_shift = FALSE; 

> 

#pragma EJECT 



* 

* Function: control _eng i ne_sync_ t et t _node (AutoSplit) 

* ~ "* 

* Description! 

* This function test the synchronize node of engine speed control. 



static void control engine sync test node(void) 
< 

if (accelerator_pedal ^position < 10) 
C 

engine status = ENGINE FOLLOWER MODE; 
engine'commands - ENGINE FOLLOWER ; 
engine'control * OVERRIDE DISABLED; 
conmand_ETC1 * C_ETC1 .NORMAL; 
desired~engine speed » 0; 

> 

else 

if (acceleratorj>edal_position > 90) 
i 

engine_status * ENG I NE_SYNC_M00E ; 
engine~commands = ENGINE SYNC; 
engine~control = SPEED CONTROL; 
cofflmand_ETC1 » C_ETC1 JDVERSPEED; 
desired~engine_speed = des ired_engine_s peed_tes ti- 
des ired~engine~speed timer = desired engine speed time; 

> 

else 
C 

if (desired_engine_speed_ timer > 0) 

des i red_eng i ne_speed_timer- - ; 
else 
C 

if (desired engine speed > 600) 
i 

desired_engine_speed_timer = desired_engine_speed_time; 
desired~engine~speed~* (desired engine speed - desired engine speed ramp) 

> 

> 

> 

> 

#pragma EJECT 



* 

* Function: deterair»_if_recovery_co(8plete 

* Description: 

* This routine checks to see if the percent_torque_value_lioit has 

* exceeded the percent _t orque_va I ue feedback frora the engine by xX 

* for x Milliseconds and witl'then set percent_torque_value_lirai t 

* to 100% to cancel the recovery node. 
* 

static void determine if recovery complete(void) 
C 

if (<net_engine_pct_trq > 10) && 

(desired engine Jxt trq > (net engine_pct trq ♦ RECOVERY CANCEL OFFSET))) 

♦♦recovery cancel timer; 

> 

else 

recovery_cancel_timer = 0; 

if ( (recovery_cancel_timer >= RECOVERY_CANCEL_T I ME ) || 
(desired enginejjct trq «a 100) ) 

€ 

/* terminate the recovery mode */ 

desired engine_pct trq = 100; 

engine status * ENGINE RECOVERY H00E COMPLETE; 

> 

> 



#pragma EJECT 



* Function: cont ro l_tng I ne_recovery_nortne I 

* Description: 

* Determine throttle coainand for recovery mode. 

* TORQUEJ.IMIT it scaled as a BIN 8 number representing the percentage 

* of torque allowed to the engine during recovery. 
* 

**** ***.*******#*~******^*******^ 

static void control engine recovery normal (void) 

engine control = SPEED TORGUEJ.IMIT; 
command_ETC1 = C_ETC1 J?QRMAL;~ 

desired_engine_speed » 8031; /* torque limit only, max value for speed */ 
torquejimit ♦» RECOVERYJttTE JABLE tdestirwtion_gear*4] ; /* BIN 8 V 
desired_engine_pct_trq ■ <char)(torque_limit » 8); /* BIN 0 V 
determine if recovery completeO; 

> 



#pragma EJECT 



* Function: control_engine_recovery_coastinQ 

* Description: 

* Determine throttle comand for coasting down shifts mode. 
• 

•a********************************************************************** ^ 

static void control engine recovery coast ing(void) 
< 

register uint localjjint; 

if (sync on timer <= 300) 
C 

♦♦sync_on_timer; 

engine control = SPEEO CONTROL; 
commandJTCI » CJTC1 ^NORMAL; 

sync_of f_timer = 0; 

/** recovj:oast_down_tmp1 * gos ♦ (dgos * K1) - THLOJ)S_ENGJ)ECAY_RAMP *•/ 

if (dgos < 0) /* get absolute value */ 

_cx » (uint) -dgos; 
else 

_cx ■ (uint)dgos; 

asm mulu cxdx, #THL0 DS ENG_DECAY K1; /* BIN 12 */ 

asm shrl j:xdx, #12; ~ " /* BIN 0 */ 

if (_cxdx > 500) /* error check V 

localjjint * 0; 
else 

local_uint = _cx; 

if ( lpf_output_accel > 0) 

recov_coast~down_tmp1 » (gos ♦ local_uint) - T H L0_0 S_E NG_D ECA Y_RAMP ; 
else 

recov_coast_down_tmp1 = (gos * local_uint) - T H L0_D S_E NG_D E CAY_RAMP ; 

/** recov_coast_down_tmp2 * desi red_engine_speed - T H 1 0_0 S_E N G_0 E C A Y_R AMP 

recov_coast_down_tmp2 « desired_engine_speed - THL0_DS_ENG_0ECAY_RAMP; 

if ( recov_coast_down_tmp1 < recov_coast_down_tmp2) 

desired_engine_speed = recov_coast_down_tmp1 ; 
else 

desired engine speed = recov coast down tmp2; 

> 

else 
C 

if (sync off timer <» 5) 
C 

♦♦sync off timer; 
engine'controt * TOJWUE CONTROL; 
comnandJTCI » C.ITCIJOWAL; 
desireoTengir* _pct trq » 0; 

) 

else 

sync on timer ■ 0; 

> 

if ((desired engine speed ♦ THL0 OS FINISHED DELTA) < gos) 
< 

/* terminate the recovery mode */ 

desired engine jxt trq * 100; 

engine status » ENGINE RECOVERY MODE COMPLETE; 

> 

> 



#pragma EJECT 



* Function: control_engine_recov«ry 

* Description: 

* This function determines which type of throttle recovery should be 

* used. And initializes some of the variables that will be used. 



static void control engine recovery (void) 
< 

if ((engine status ! = ENGINE RECOVERY MOOE) &i 

(engine status 1= ENGINE RECOVERY MOOE COMPLETE)) 

C 

engine_status * ENGINE_RECOVERYJWOE; 
desired_engine_pct_trq a 0; 
recovery_cancel_timer » 0; 
sync_on_ timer = 0; 
sync_off_t imer = 0; 

/* kill pedal transition stuff */ 
posit ive_pedat_trans » FALSE; 
positive_pedal~trans * FALSE; 
zero_f lywheel^trq^timer * 0; 
zero_f lywheel_trq_time = 0; 

if (gos < desired_engine_speed) 
des i red_eng i ne_speed = gos; 

/* set initial starting torque limit */ /* percent, BIN 8 */ 
if ((actual_engine_pct_trq > needed_percent_for_zero_f lywheel_trq) && 
(pct_demand_at_cur~sp > 5)) 
torque~limit = ((unsigned int)(actual_engine_pct_trq))«8; /* percent, BIN 8 */ 
else 

torque limit = ((unsigned int)(needed_percent for zero flywheel trq))«8; /* percent, 81 N 8 V 

> 

if ((destination_gear > ACT I VE_RECOVERY_GEAR ) && 
(pet demand at cur sp < 5) && 
((shift type == COAST DOWNSHIFT) 1 1 
(shift type == UPSHIFT))) 

( 

control engine recovery coast ing(); 

> 

else 
i 

control engine recovery normal (); 

> 

> 

#pragma EJECT 



* 

* Function: controMntent_to_shift 

* — — — 

* Description: 

* This function 
* 

static void control_intent_to_shift(void) 



if (engine control 1* TORQUE CONTROL) 
C 

desired engine_pct trq = actual engine_pct trq; 

> 

engine control = TORQUE CONTROL; 
conroandJTCI = C_ETCt_OVERSPEED; 

positive_pedal_trans = TRUE; /* allow for recovery mode */ 

if ((desi red_engine_pct_trq >= intent_ramp_of f_rate) && 
(actual engine_pct trq > intent finaljxt trq)) 

desired engine_pct trq -» intent rawp off rate; 

> 

else 
C 

desired engine_pct trq a intent final_pct trq; 

> 



#pragma EJECT 



* Function: control.engine.fol lower 

* ~ ~" 

* Description: 

* This function sets the override_control_mode to no over ride so that 

* the engine follows the accelerator demand. 
* 

static void control engine follower(void) 
C 

#define POSITIVE PEDAL TRANSITION TIKE 25 /* 250 MSEC V 
fdefine NEGATIVE_PEDAL_TRANSIT ION JT IKE 40 /* 400 MSEC V 



engine_status = ENGINE.FOLLOUER.MOOE; 

if ((intent_to_shift == TRUE) && i 
(shift_in_process == FALSE) && \ 
(desired gear != destination gear selected)) * 

C 

control intent to shiftO; 

> 

else 
C 

if ((accelerator _peda Imposition >= 5) && /* positive pedal transition V 
(accelerator_pedal_position old <= 4) && 
(low speed latch == FALSE))" 

< 

pos i t i ve_peda I trans = TRUE; 

zero flywheel trq_time = POSITIVE PEDAL TRANSITION TIME; 
if (zero.f lywheel.tro^timer >= NEGATIVE~PEDAL.TRANSIT1QN.TIME) 
zero flywheel trq_t inter = 0; 

> 

else 
< 

if ( (accelerator j>edal _posi tion <= 4) && /* negative pedal transition V 
(accelerator_pedal_posi tion old >* 5) && 
(low speed latch == FALSE))" 

C 

zero_flywheel_trq_time = NEGATIVE_PEDAL.TRANSITION_TlME; 
zero flywheel trq_timer = 0; 

> 

) 

if ((zero.f lywheel.trq_timer < zero.f lywheel.trq.time) && 

(current gear > 1) && (current gear < 10) && (low speed latch == FALSE)) 

< 

engine control = TORQUE CONTROL; 
command.ETCI = C.ETC1. OVER SPEED; 

desired_engine _pct_trq 3 needed _percent_for_zero.f lywheel.trq; 

if (actual.engine _pct_t rq < (needed __percent_for.zero_flywheel.trq ♦ 5)); 
zero flywheel tr^tTner>+; " 

) 

else 
{ 

if ((positive .pedal trans « TRUE) U (low speed latch « FALSE)) 
< 

positive_pedal_trans » FALSE; 

engine.commands s ENG I NE_RECOVER Y ; /* engine: finish torque return 

control engine recoveryO; 

> 

else 
( 

engine control - OVERRIDE DISABLED; 
comnand ETC1 = C ETC1 NORMAL ; 

> 

> /* end no intent to shift V 

> 

ftpragma EJECT 



* Function: control^engine.idle 

* "* *" 

* Description: 

* This function sets the engine controls for the idle mode. 
* 

static void control engine idle(void) 
{ 

engine control » OVERRIDE DISABLED; 
command_ETC1 = C_ETC1 JIORMAL; 

engine status = ENGINE IDLE MOOE; 

> 



#pragma EJECT 



* Function: controt_engfne_start 

* Description: 

* This function sets the engine controls for the start mode. 

static void control engine.start(void) 
i 

engine control * OVERRIDE DISABLED; 
coronand_ETCl = C_ETC1_N0RHAL; 

engine status » ENGINE START HOOE; 

> 



tfpragma EJECT 



* Function: control_engfne_co^ce*sion_brake 

* Description: 

* This function controls the state of the engine compression brake. 

* The brake can be used during upshifts to speed up the decel rate of 

* the input shaft. 
• 

**********************+*******************************************+*****/ 

static void control engine compression brake(void) 
C 

if (engine communication active && 

(engine^status » EMg7mE_SYMCJ<00£) && 
(6hift_type « UPSHIFT) U 
(input~speed_fU tared > (gos ♦ 150)) && 
(destination_gear > 1) &4 
(destination~gear < 7) tt 
<engine_brake_evailable) && 

<<dos_predicted < dos_prdtd lira no jake) || eng brake assist)) 

t 

eng brake assist 3 TRUE; 

> 

else 
C 

eng brake assist = FALSE; 

> 



eng brake assist » FALSE; /* force false state for now */ 

> 



^pragma EJECT 



* 

* F met ion: deterwine^gos 

* *" 

* Description: 

* This function mulltplies the destination gear ratio times the 

* output shaft speed for use in the DRL_CMDS module. 
• 

* gos * (g)ear * (o)utput (s)peed 
* 



static void determine gos(void) 



/*** determine gos for the destination_gear ***/ 
_bx » trn_tbl .gear_ratio(destination_gear ♦ GRJ3FS]; 
"cx » output_speed_f i Itered; /* output speed */ 
asm mulu cxdx, bx; /* BIN 8 result V 

asm shrl ~cxdx f #8; /* make BIN 0 */ 

gos * _cxj /* BIN 0 */ 

_cx = *<uint *)&lpf_output_accel; 
asm mul _cxdx, _bx; 
asm div "cxdx, #256; 
dgos = *<int *)&_cx; 

gos_signed = (signed intXgos); /* allow signed math in other functions*/ 

/*** determine gos for the "current_gear" ***/ 
_bx * trn_tbl .geer_ratio[current_gear ♦ GR_OFS]; 
"cx « output^speed^f i Itered; /* output speed */ 
asm mulu cxdx, bx; /* 81N 8 result V 

asm shrl j:xdx, #8; /* make SIN 0 •/ 

gos_current_gear s _cx; /* BIN 0 V 



#pragma EJECT 



* Fine t ion: dtteraine_shiftabi Uty_variables 

* " ™ 

* Description: 

* This function filters both the output speed and the rate of change of 

* the output speed for use in the shiftability function. This function 

* also calulates the rate of change of the input shaft based on the 

* filtered value for the rate of change of the output shaft. 
* 

* The filters used in this function are required to get a high level of 

* stability. The BIN 8 filter used here will provide a much smoother 

* output which is needed to filter out drivel ine oscillations. 
* 

* Note: These calculations were placed in this module because it is 

* called on a regular 10 msec interval. These calculations should 

* be placed in the pr_i_s_i.c96 module once shiftability is proven. 

* These variables are"used in the SEL GEAR.C96 module. 



static void determine shiftability vartables(void) 
C 

/* LPF coefficients: exp(-wT), T=0.010s */ 



^define OS_LPF 


248 


/* 


0.9691 BIN 8 (O.SOHz) 


*/ 


#define D0SFK1 


249 


/* 


0.9727 BIN 8 (0.44Hz) 


*/ 


#define EPTFK1 


252 


/* 


0.9844 BIN 8 (0.25Hz) 


*/ 


#define IS FK1 


236 


/* 


0.9219 BIN 8 (0.??Hz) 


V 


#define OS~FK1 


236 


/* 


0.9219 8IN 8 (0.??Hz) 


*/ 


#define 0ISFK1 


236 


/* 


0.9219 BIN 8 (0.??Hz) 


V 


#define LOU RANGE 


3197 


/* 


3.1224 BIN 10 


*/ 


#define BIN~10 


1024 









static long dos_f i ltered_bin8; 
static int ept_f i ltered_bin8; 

unsigned long is_f i ltered_partiaM ; 
unsigned long is_f iltered_partial_2; 
unsigned long os_f i ltered_partial_1; 
unsigned long os^f i ltered_partiel_2; 

/** create lpf_output_accel **/ 

_bx = *(uint *)&output_speed_accel; /* _bx = x(n), BIN 0 */ 

"cx = *(uint *)&lpf output accel - bx; /* ~cx = y<n-1) - x<n), BIN 0 */ 

asm mul cxdx, #OS LPF; ~ /* cxdx * **(...), BIN 8 */ 

asm div "cxdx, #256; /* make BIN 0 */ 

_bx +« _cx; /* J» » x(n) ♦ K*<...), BIN 0 

Tpf_output_accel = *(int *)&_bx; /* save acceleration */ 

/** dos_filtered * (dos_f i Itered * DOSFIC1) ♦ <lpf_output_accel * (1-0OSFK1) **/ 

cxdx s *(ulong *)&dos filtered bin8; /* BIN 8 */ 

asm shral cxdx, #2; " " /* BIN 6 ( cx) */ 

asm mul cxdx, HDOSFK1; /* BIN 14 */ 

asm shraT _cxdx, #6; : /* BIN 8 */ 

dos_f iltered_bin8 ■ *<long *)i_cxdx; /* save partial result V 

cx * *(uint *)4lpf output accel; /* BIN 0 */ 

"bx * 256 • 0OSFK1;~ " /* 1 BIN 8 - 0OSFK1 V 

asm mul _cxdx, Jw; /* BIN 8 */ 

dos_f iltered_bin8 *<long *)4_cxdx; /* sura is final result */ 

dosjiltered * (intXdosJ i lteredj>in8 » 8); /* BIN 0 V 

/** engj»rcent torque filtered » <eng_percent torque filtered * EPTFK1) ♦ 

(nerenginej>ct_trq * (1-EPTFK1) **7 

cx « *(uint *)&ept filtered bin8; /* BIN 8 V 

asm mul cxdx, #EPTFK1; " /* BIN 16 V 

asm shral _cxdx, #8; /* BIN 8 */ 

ept_filtered_bir»8 » *(int *)&_cx; /* save partial result V 

cx * net engine_pct trq; /* BIN 0 */ 

"bx ■ 256"- EPTFK1; " /* 1 BIN 8 - EPTFK1 */ 

asm mul _cxdx, J»; /* BIN 8 V 

ept.fi I tered_bin8 +■ *(int *)&.cx; /* sub is final result */ 



/* 


BIN 4 


V 


/* 


BIN 6 


V 


/* 


BIN 12 


V 


/* 


BIN 8 


V 


/* 


BIN 8 


V 


/* 


BIN 0 


V 


/* 


1 BIN 8 * 


IS FK1 */ 


/* 


BIN 8 


*/ 


/* 


BIN 8 


*/ 



eng_percent_torqu»_ff Itertd » (char)<ept_f UttredJ>in8 » 8); 

/•* input_shaft_ecctlj:alculated « dos.fi Itered * gear-ratio *V 

cx ■ trn_tbl,gear_ratioCdestination gear ♦ GR_OFS); /* BIN 8 V 
~bx - *(uTnt *)idos_fi Itered; " /* BIN 0 •/ 

asm mul _cxdx, _bx;~ /* BIN 8 */ 

asm shraT _cxdx, #8; /* BIN 0 V 

input_shaf t_accel_calculated * *(tnt *)&_cx; 

/*** calculate filtered input and output shaft speeds for AutoSplit ***/ 

/*** determine os_based_on_rcs variable ***/ 
if (output speed <"10QO)~ 
€ 

bx = aux speed; /* BIN 0 V 

cx * BIN 10; /* BIN 10 */ 

^ax » LOWJtANGE; /* BIN 10 */ 

asm mulu "cxdx, _bx; /* make aux_speed BIN 10 */ 

asm divu "cxdx, "ax; /* divide by low range BIN 10 V 

os based on res « cx; /* BIN 0 */ 

) 

/** input speed filtered = (input speed filtered * IS FK1 ) ♦ 
(input_speed * 7l-IS_FK1) **/ 

ax = (is filtered binfi >> 4) 
"cx = IS_FK1 ; 
asm mulu _axbx, _cx ; 
asm shrl _axbx, #4 ; 
is_f i I tered_partial_1 = _axbx 

cx = input speed ; 
"ax = 256 -~IS_FK1 ; 
asm mulu _axbx, _cx ; 
is_f t ltered_partTal_2 » _axbx 

is_f i Itered J>in8 » is_f i Uered^partiaM ♦ is_f iltered_partial_2 ; 
input_speed_fi Itered = (unsigned int)(is_f i ltered_bin8 » 8); /* BIN 0 

/** output speed filtered = (output speed_f i Itered * 0S_FK1) ♦ 
" (output_speed * (T-OS_FK1) **/ 

ax = (os filtered bin8 » 4) 
"cx = 0S_FK1 ; 
asm mulu _axbx, _cx ; 
asm shrl _axbx, #4 ; 
os_f i ltered_partial_1 = _axbx 

if (output_speed < 250 ) 
_cx » os_based_on_rcs; 
else 

_cx * output_speed ; 

jsx » 256 • OS_FK1 ; 
asm mulu _axb*7 .cx ; 
os_f i I tered_part7al_2 » _axbx 

os_filtered_bin8 ■ aa^ff Itered _psrti«M ♦ os_f ilteredj»rtial_2 ; 

output_speed_fi Itered ■ (unsigned int)(os_f i ltered_bin8 » 8); /* BIN 0 V 

/** input_speed_accel_f i Itered • ( input_speed_accel_f i Itered * D1SFK1 ) ♦ (input.shaf t_accel * (1-DISFK1) **/ 

cxdx a *(ulong *)M1s filtered binB; /* BIN 8 */ 

asm shral cxdx, #4; " " /* BIN 4 ( cx) V 

asm mul .cxdx, *>ISFK1; /* BIN 12 " V 

asm shraT _cxdx, #4; /* BIN 8 */ 

dis_f i ltered_bin8 « *(long *)&_cxdx; /* save partial result */ 

cx ■ *(uint *)&input speed accel; /* BIN 0 */ 

_bx • 256 - 0ISFK1; " " /* 1 BIN 8 - 0ISFK1 V 

asm mul _cxdx, Jw; /* BIN 8 */ 

dis.fi I tered_bin8 *(long *)&_cxdx; /* sum is final result */ 

input_speed_accel_fi Itered * (int)(dis_f i ltered_bin8 » 8); /* BIN 0 V 



t 


/* 8IN 4 


V 




/* BIN 8 


*/ 




/* BIN 12 


*/ 




/* BIN V 8 


V 


» 


/* BIN 8 


V 




/* BIN 0 


V 




/* BIN 0 


*/ 




/* 1 BIN 8 - 


OS FK1 */ 




/* BIN 8 


*/ 




/* BIN 8 


V 



/** determine state of clutch •*/ 

if ( eng t n*_apeed > input_speed) 

clutch_sTip_spted ■ engine_apeed - input_speed; 
else 

clutch_sl ip_speed =* input_speed - eng i ne_speed; 

if (clutch slip speed > 200) 
clutch_state~* DISENGAGED; 
else 

if (( eng ine_s peed > 800) && (low_speed latch == FALSE)) 
clutch_state = ENGAGED; 



/** determine desired percent torque needed for zero torque at flywheel **/ 



if ((accelerator _pedal_position < 2) && 
(clutch_state » ENGAGED) U 
(current gear *■ 0) && 
(input speed.fi I tered < 1100) && 
(((engTne_control « OVERRIDE_D!SABLED) U 
(low_speed_latch == FALSE) It (current_gear == 0)) || 
(output_speed_f Utered < 20))) 
percent_torque_accessories = eng_percent_torque_f i Itered; /* get at idle 



percent_torque_accessories = 3; /* force value for now */ 
needed_percent_for_zero_f lywhee4_trq = percent_torque_accessories ♦ 



overal l_error = ((signed int)( input_speed_f i Itered) - (signed int)(gos)); 



#if (0) 



#endif 



nomi na l_f r i c t i on_pct_t rq; 



> 



#pragma EJECT 





J 





* Function: cccinunicatejilthjiriveline 
* 

* Description: 

* This is the periodic task which controls the actions of the engine 

* by defining mode of control and controlling speed and torque output 

* levels depending upon the control function being performed. This task 

* is also intended for control of other drivel'ine components (not yet 

* named) which may be available in the future. 
* 

void communicate with dri vel ine(void) 

initial ize_dri vel ine_data(); 

x start _periodic(); 

while (1) 

i 

cont ro l_eng i ne_compress i on_brake( ) ; 

determine_gos(); /* calculate (G)ear times the (Output (S)haft V 

de t ermi ne_sh i f t ab i I i ty_var i abl es ( ) ; 

if (engine communication active) 
( 

if <<desired_sync_test_mode == TRUE) && (output_speed_f i Itered < 100)) 
c on t ro I _eng i ne_sync_test jnode ( ) ; 

else 

< /* start of normal engine_commands switch */ 

switch (engine commands) 
C 

case ENGINE_PREDIP: 

cont r o I _eng i ne_pr ed i p( ) ; 
break; 

case ENGINE_SYNC: 

c on t r o I _eng i ne_sync ( ) ; 
break; 

case ENG I ME_REC0VER Y : 

control_engine_recovery( ); 
break; 

case ENGINEJDLE: 

control_engine_idle(); 
break; 

case ENGINE_START: 

control_engint_start(); 
break; 

case 6MG INE.FOL LOWER: 
default: " 

control_engine_f ol lower( ); 

break; ~ " 

> 

> /* end of normal engine_commands switch */ 

switch (eng brake command) 
( 

case ENG_BRAKE_OFF: 

retarder_control * TOROUE_CONTROL; 
desired_retarder_pct_trq ■ 0; 
break; 

case ENG.BRAKE FULL: 

retarder_control * TOROUE.CONTROL; 
desired_retarder_pct_trq = -100; 
break; 

case ENG_BRAKE IDLE: 
default:" 

retarder^control » OVERRIDE 0ISA8LE0; 



dMired_retarder - pct_trq ■ 0; 
break; 

> 

> 

else 

engine_status » EHG I ME_NOT_P*ESENT ; 

/* store old value for use in M control_engine_fol lower" function */ 
accelerator^pedal^position^ld » accelerator_p«lalj>osition; 

x syncj>eriodic(US PER LOOP); 

> 

x_endj>eriodic<); 



Unpublished and confidential. Mot to be reproobced, 
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* 

* Filename: prL*_i_t.c96 (AutoSplit) 
* 

* Description: 

* The modules contained within this compilation unit are 

* intended to implement functionality of the Process Systea 

* Input Signals task defined in the design documention. 

* In general, Analog to digital conversions are started on 

* PortO. The necessary hardware initialization and variable 

* initial iztion for inputs on PortO are handled. The switch 

* inputs are captured to avoid conflict with AO conversions 

* and all necessary scaling and error check for these inputs 

* is conducted. 
* 

* Part Number: <none> 
# 

* $Log: ? 
* 

* Rev 1.1 19 May 1994 11:32:26 markyvech 

* Converted for use with AutoSplit ECU2 
* 

* Rev 1.0 12 Sep 1991 08:04:26 amsallen 

* Initial revision. 
* 



* Header files included. 



#include <exec.h> 
U include <kr_sfr.h> 
#include <kr~def.h> 
U include <c_regs.h> 
^include <wwslib.h> 
# include "pr_s_i_s.h u 
# include "sysgen.h" 



/* executive information 

/* KR special function registers 

/* KR definitions 

/* KR internal register definitions 

/* world wide software definitions 

/* process system input signal information 

/* defines the task names and priority 



V 
V 
*/ 
V 
V 
V 
*/ 



* 

* ^defines local to this file. 



/* StartJVD_Conversions */ 

#define ENABLE AO PTS SCAN 0X20 
#define ENA8LEJVDJSR 0X20 

^define PERIOD 10U /* 1&w V 

#define RKM PER 100 SOU /* 50ms V 



* Constants and variables declared by this file. 
* 

/* Analog Inputs on PortO */ 

int igni tion_volts; 
int splitter^position; 

#define IGNITION VOLTS_CHANNEL_RESULT 1 



#define SPLIT-TER_POS_CHANNEL_RESULT 15 
tfdefine CONVERSION TIME Oxef 



^define CONVERT^ 8 

#define CONVERT IGNITION J/OLTS 
tfdefine UNUSED CHANNEL J 
#define UNUSED~CHANNEL_2 
define UNUSED~CHANNEL_3 
tfdefine UNUSED"CHANNEL_4 
tfdefine UNUSED~CHANNEL_5 
#define UNUSED~CHANNEL 6 
#define CONVERT SPLITTER_POS 
#def ine STOP CONVERSION 
#define START CONVERSIONS 



/* for state tine « 1& nsec: */ 
/* sample time » 3.6250 usee */ 
/* convert time « 20.1875 usee */ 
/* scan and convert 8 channels */ 



< N0RM_M00E 
(~N0RM~M00E 

("norm^mooe 
<~normj4ooe 
(~norm~mooe 

<~N0RM~M00E 

(~norm"hooe 
<"norm~mooe 

0x00 
ad command 



10 


BIT 


MOOE 


STRT 


.CONV 


CHNL 0) 


10" 


"bit" 


"mooe 


"strt" 


"CONV 


"CHNLJ ) 


10* 


"bit" 


"mooe 


"strt" 


"CONV 


~chnl~2) 


10" 


"bit" 


"mooe 


"strt" 


*CONV 


"CHNL"3) 


10" 


"bit" 


"mooe 


"strt" 


"CONV 


"CHNL"4) 


10" 


"bit" 


"mooe 


"strt" 


"CONV 


~CHNL"5) 


10 BIT KOOE 


"strt" 


"CONV 


~CHNL~6) 


^"BITJtOOE 


_STRT_CONV 


CHNL 7) 



» CONVERT IGNITION VOLTS 



/* table containing AD_result and AD_Conmand values after PTS scan */ 
unsigned int A0_TableC16] ; 

/* AD SCAN PTS CONTROL BLOCK LOCATION */ 
ad_ptsb type AD Con Block; 
Spragma Tocate<AD Con Block=0x01F8) /* locate pts control block */ 
#pragma pts<AD Con Block = 5) /* set pts vector 5, A/D done V 



#pragma eject 



* 

* Function: InitializeJnput^Signals 
* 

* Description: 

* This routine initializes the A/D converter. It sets the A/D to 

* run in PTS scan node, 10bit conversion. The PTS control block is 

* set up and the Command/result table is initialized. 
* 

void Initialize_Input_Signals<void) 

* /* if we knew when the first speed packet arrived, we could initialize 
with those values, since we don't, be safe and use zero. */ 



AO TabletO] = UNUSED .CHANNEL J ; 

AD~Table[1] = OxOOOOj 

A0"TableC2] = UNUSED_CHANNEL_2; 

AD~Tablet3] = 0x0000; 

AD~Table[4J = UNUSED_CHANNEL_3; 

AD~Table[5] = 0x0000; 

AD~Table£6) = UNUSED.CHANNEL.4; 

A0~Table[73 = OxOOOOj 

AD~Table[8] = UNUSED_CHANNEL_5 ; 

AD~TableC9] = OxOOOOj 

AD~Table[103 = UNUSED CHANNEL.6; 

AD~Table[11] = 0x0000; 

AD~Table£12] = COMVERT SPLITT£R_POS; 

AD"Table[13] = 0x0000; 

AD~Table[14] = STOP CONVERSION; 

AD~Table[15] = 0x0000; 

AD Con Block. cnt = CONVERT^; 
AD~Con>lock.ctrl = _AD_MODE |_SJ)_UPDT; 



AD Con Block. s d = ADJable; 
AD~Con~Block.reg = (void *)&_ad_result; 

_ad time - CONVERSION J I ME; 

ad"test = NO OFFS; 
j>ts_select &= "(_PTS_ADDONE.BIT); 



/* place holder for channel 1 */ 

/* I GN I T I QN_VOLTS_CHANNEL_RESULT */ 

/* place holder for channel 2 V 

/* UNUSED J .RESULT */ 

/* place holder for channel 3 */ 

/* UNUSED_2_RESULT V 

/* place holder for channel 4 */ 

/* UNUSED_3_RESULT */ 

/* place holder for channel 5 */ 

/* UNUSED_4_RESULT */ 

/* place holder for channel 6 */ 

/* UNUSED_5_RESULT */ 

/* Conmand convert splitter pos V 

/* UNUSED_6JtESULT */ 

/* commarxTto Stop conversions */ 

/* SPL I TTER_POS_CHANNEL_RESULT */ 



/* A/D mode bits 0,1 of PTSJTONTROL 
/* always set to 3h bit 2 = 0 
/* S/D update at end of cycle 
/* bit 5 always 0 
/* Set mode for AD SCAN 

/* Load s_d with AD_Table address 
/* Load reg with AO~Result address 



/* Disable, test mode V 
/* Disable AD PTS */ 



^pragma eject 



* Function: ADJSR 

* ~ 

* Description: 

* This int erupt service routine resets the PTSCOUNT, pts_sd and pts_reg 

* for another PTS_Scan A/0 cycle. It also readies a task to run when 

* a PTS cycle has'completed. 
* 



#pragma interrupt <A0_ISR=5) 

void AO ISR(void) 

< 

x start isr(); 

ADJTonJilock.cnt * C0NVERT_8; /* Reset pts count for next cycle */ 

ADjrc*TBlock.s_d = A0_Table; /* Reset table pointer to start of table 

AD~Con~Block.reg = (void *)&_ad_result; 

x_ready(PROCESS_INPUT_$IGNALS); /* Ready pr_s_i_s task V 

x end isr(); 

> 



^pragma eject 



* Function: StartJULConversions 
* 

* Description: 

* This function initializes the input signal processing function 

* if it has not already been done, and then startes the PTS Scan 

* of the AD channels by sending the appropriate command to the 

* ad_command register. 

void Start AO Conversions(void) 
C 

if (( int mask & ENABLEJUMSR) « 0 ) 

lnTtializeJnput_Signals<); /* Set up AO table for PTS * 

_pts select |* ENABLE AO PTS SCAN; 
Jntjnask |= ENABLE_AD_ISR; 

x_prearm_stimulus<); 

START_CONVERSIONS; /* Start a conversion, initiate the PTS cycles V 
x wait stimulusO; /* ADJSR will ready task when PTS is complete V 

> 



#pragma eject 



* Function: process_input_signals 
* 

* Description: 

* This is the periodic task which starts the analog conversions on PortO. 
* 

************************************************************************/ 

void process input_signals(void) 
i 

x start_periodic(); 

while (1) 

< 

Star t _AD_C onve r s i ons ( ) ; 

/* Clean up and scale AD values */ 

ignition_volts = scale_system_adJnputs(IGNITlOW_VOLTAGE); 
splitterjwsition = scale_system_ad_inputs(SPLITTER_POSITI0N); 

/* x syncj)eriodic(PERI00*1000); V 
x syncj)eriodic(RICM_PERI0O*1000); 

> 

x end_periodic<); 

> 



#pragma eject 



* Function: sea I e_system_ad_ inputs 
* 

* Description: 

* This function removes the channel, status and reserved bits from 

* the raw AO values, and performs all necessary scaling and error 

* checking for the analog inputs on PortO. 
* 

int scale system_ad_inputs(char Channel) 
< 

int Scaled Value 3 0; 

uint volts^perJ>it; /* BIN 16 V 

uint uni ts_per~bit; /* BIN 16 */ 

#define TUELVE~VOLT FULL SCALE 22.46 /* volts */ 

#define TVENTY~FOUR~VOLT FULL-SCALE 40.49 /* volts V 
#define DISTANCE FULL SCALE 100 /* V 



volts per bit = (uint )( (TWELVE VOLT FULL SCALE*65536/1023)*0.5); 
units jxsr'bit = (uint)((DISTANCEJULL_SCALE*65536/1023)+0.5); 

switch (Channel) 
i 

case 0: /* IGNITION VOLTAGE */ 

cx = AD TableCIGNITION VOLTS CHANNEL_RESULT] » 6; 
asm mulu~_cxdx, volts_pe>_bit; /* volts, BIN 16 (_dx, BIN 0) */ 
Scated_value = *(int *)&_dx; 
break; 

case 1: /* UNUSED */ /* to be completed when a product requires it */ 
Scaled_Value = (0); 
break; 

case 2: /* UNUSED */ /* to be completed when a protect requires it */ 
ScaledJ/alue = (0); 
break; 

case 3: /* UNUSED */ /* to be completed when a product requires it */ 

Scaled_value = (0); 

breaks- 
case 4: /* UNUSED */ /* to be completed when a proofcet requires it V 

Scaled_Value = (0); 

break; 

case 5: /* UNUSED */ /* to be completed when a product requires it */ 
Scaled_Value = (0); 
break; 

case 6: /* UNUSED */ /* to be completed when a product requires it V 
Scaled J/alue = (0); 
break; 

case 7: /* SPLITTER POSITION */ 

cx = AD Table [SPLITTER POS CHANNEL_RESULT] » 6; 

asm mulu" cxdx, uni ts_per_bi t; /* distance, BIN 16 (_dx, BIN 0) V 

Scaled_VaTue = *(int *)&_5x; 

break; 

default: 
break; 

> 

return (Scaled_Value); 



* Unpublished and confidential. Not to be reprockjced, 

* disseminated, transferred or used without the prior 

* written consent of Eaton Corporation. 
* 

* Copyright Eaton Corporation, 1993-94. 

* All rights reserved. 



* Filename: set j)e*t.c96 (AtftoSpilt) 
• 

* Description: 

* This module is the periodic task H select_gear". It assigns values 

* to destination_gear_selected as a function of selected jnode, input 

* and output shaft speeds, and driver selections (dccjnanual_input). 

* Shift parameters are in the data structure shf_tbl. Before setting 

* destination_gear_selected, gears are checked with available_gear<>. 

* ~~ 

* Part Number: <none> 
* 

* SLog: R:\ashift\vcs\sel_gear.c9v % 
* 

* Rev 1.8 21 Feb 1994 15:07:14 schroeder 

* Replaced shi f tabi I i tyjnode with new flag, engine_brake_evai lable. 
* 

* Rev 1.0 29 Jul 1993 16:40:26 schroeder 

* Initial revision. 



/******************************************************************** 
* 

* Header files included. 



#include <exec.h> /* 

# include <c_regs.h> /* 

#include <wwslib.h> /* 

#include "cont sys.h" /* 

include "conj 1939. h" /* 

^include "drl_cmds.h» /* 

#include "sel gear.h" /* 

#include »shf_tbl.h" /* 

include "trn tbl.h" /* 
#include "calc_spd.h H 
include "trns^act.h" 
#pragma noreentrant 



executive information */ 
c registers */ 

contains common global defines */ 
control system */ 

defines interface to j 1939 control module */ 

drivel ine commands information */ 

select gear */ 

shift table definition */ 

(system) transmission table definition */ 



* 




* #defines local to this file. 
* 




#define USJ>ERJ.OOP 40000U 




^define I N I T I Al_START_GEAR 1 




* i 




* Constants and variables declared by this file. 
* 





/* public */ 



char destination_gear_selected; 

char destination_gear; 

char f lashjiesi red_al lowed; 

char desired_gear; 

char desired_gear_dn;. 

char desired_gear_up; 

uchar coasting_latch; 

uchar sel_gear_cntr1; 

uchar sel_gear_cntr2; 

uchar sel_gear_cntr3; 



/* debug use - delete later 
/* debug use - delete later 

debug use - delete later V 
debug use - delete later V 
debug use - delete later V 



uchar sh i f t_i ni t_type; 

uint Ipf output^specd; 

int dosjsredicted; /* BIN 0 •/ 

int c^j>rdtdJitino_jake; /* BIN 0 */ 



/* local */ 

/* filter weights for the "mda" output speed filter */ 
static register uchar w1; 
static register uchar w2; 
static register uchar w3; 
static register uchar w4; 

/* shift table (define and extern in shf_tbl.h) */ 
struct shf_tbl_t shf_tbl; 



/* default shift table values */ 
const struct shf_tbl_t ini_shf_tbl = 
t 



1200, 




aut_pwn__rpn. / 


1000, 


/ 


aut_roi n_own__rpni / 


1700, 


/* 


aut~up_rpm */ 


o, 


/* 


best_gr_offset */ 


50, 


/* 


dwn_of f set — rpm */ 


100, 


/ 


dwn_reset_rpro */ 


400, 


/ 


dwn_t i fner_OT Tset__rprn / 


40, 


/ 


hysteresis^ rpro */ 


1850, 


/ 


mam /4l« eun^ pfvn A/ 

man own sync r^jii / 


700, 


/ 


inan_up_sync_ w rpni / 


1 onn 


/* 

1 


rated ran */ 


150, 


/* 


up_of f set_rpm */ 


125, 


/* 


up~reset_rpm */ 


200, 


/* 


up_timer_of fset_rpm */ 


o. 


/* 


dwn_acceT V 




/* 


up_accel */ 


3000, 


/* 


offset_time V 


(uint)(0. 25*256), 


/* 


aut_up_pct */ 


10, 


/* 


min~output_spd */ 


1. 


/* 


max_start_gear */ 


o ( 


/* 


padbytel */ 


196, 


/* 


k1_ability, min-f t/rev-sec, BIN 12 V 


431, 


/* 


axle rational, BIN 7 */ 


383, 


/* 


gcw k1, rev/sec-min-ft, BIN 0 */ 


2437, 


/* 


gcwjc2, rev/sec*2, BIN 7 */ 


1325, 


/* 


calc_start_point, rpm, BIN 0 */ 


107, 


/* 


k6_ability, min-lb-f t-sec/rev, BIN 8 */ 


1500, 


/* 


auto_up_lo_base, rpm, BIN 0 */ 


1100, 


/* 


auto~dn"lo~base, rpm, BIN 0 */ 


100, 


/* 


auto_rtd_of fset, rpm, BIN 0 */ 


1000, 


/* 


lowest_engage_rpm, BIN 0 */ 


o, 


/* 


padwordl */ 


0 


/* 


padword2 */ 



>; 



/* local initialized at start of task by select_gear */ 

/* shift points with anti-hunt offsets; referenced by autojtownshift and 

auto_upshift; set by get_automatic_gear and select_gear V 
uint upshift_point; 
uint downshift _point; 

/* lower limit for gear selections V 
char lowest_forward; 

/* indicate direction of a get_automatic_gear shift; referenced by 

get_manual_gear; cleared by~select_gear when shift complete */ 
char automat ic_sip; 

/* used in the determination of shift_points based on throttle position * 
static uint auto_up_rpm; 
static uint auto_dn_rpm; 
static uint auto_up_of f set_rpm; 
static uint auto_dn_of fset_rpm; 



/* delay counter for anti-hunt V 
static uchar antihunt_counter; 



/+ gross combined weight calculations */ 

#def inc ZERO SPEED TIME LIMIT 4500 /* 3 nin a 0.040 period V 

^define VALID OLD DATA TIME 100 /* 4 sec a 0.040 period V 

#define MAX VEHICLE WEIGHT 100000 /* 100,000 lbs */ 
#define DOSOFFSET TmIT 48 

#define ENG 0ECEL LOW.LIMIT -350 /* rpm/s */ 

tfdefine ENG~0ECELJJ>F 224 /* exp(-2pi(0.53Hz)<0.040s)) = 0.875 (BIN 8) V 

ffpragma eject 



/##********♦*•♦************************♦«************♦♦***************** 

* Function: mda_output_f Uter 
* 

* Description: . 

* This is a one pole LPF with a variable coefficient. The magnitude 

* of the coefficient is directly related to the acceleration content 

* of the speed sample and the frequency. 
* 

static void mda_output_f i Iter (void) 
< 

#define K1 8 
tfdefine K2 24 
#define K3 48 
#define K4 160 

static register uint os_delta_speed; 
static register uchar weight; 

if (Ipf output_speed > output_speed) 

os_delta_speed = lpf_output_speed - output_speed; 
else 

os_delta_speed = output_speed - I pf _out put _s peed; 

if <os delta speed <= K1) /* delta <= 200 rpm/s */ 

C 

if (w1 > 1) --w1; 
if (w2 < 5) ++w2; 
if (w3 < 6) ++w3; 
if (w4 < 7) ++w4; 
weight = wl; 

else if (os delta speed <= K2) /* 200 rpm/s < delta <= 600 rpm/s */ 
C 

if (wl < 4) ++w1; 
if (w2 > 2) --w2; 
if (w3 < 6) ++w3; 
if (w4 < 7) ++w4; 
weight = w2; 

else if (os delta_speed <= K3> /* 600 rpm/s < delta <= 1200 rpm/s */ 
C 

if (wl <-4) +*w1; 
if (w2 < 5) ++w2; 
if (w3 > 3) --w3; 
if (w4 < 7) -M-W4; 
weight = w3; 

else if (os delta_speed <= K4) /* 1200 rpm/s < delta <= 4000 rpm/s V 
i 

if (wl < 4) >+w1; 
if (w2 < 5) ++w2; 
if (w3 < 6) ♦♦wS; 
if (w4 > 3) --w4; 
weight = w4; 

> 

else /* 4000 rpm/s < delta */ 

€ 

if (w1 < 4) ++w1; 
if (w2 < 5) +*w2; 
if (w3 < 6) ♦♦w3; 
if (w4 < 7) ^w4; 
weight = 7; 

> 

Ipf output speed = Ipf out put_s peed + 

(output~speed » weight) - ( lpf_output_speed » weight); 

> 



#pragma eject 



y ******** ******************************* 

* Function: new_input_speed 
* 

* Description: 

* A utility function that returns the input shaft speed expected if 

* "gear" was engaged with the present output shaft speed- 



static uint new_input_speed(char gear) 

/* new input speed = tpf_output_speed * gear_ratio */ 

ax = trn tbT.gear ratiolgear ♦ GRJ)F$] ; /* BIM 8 V 

asm mulu "axbx, Ipf output_speed; /* BIM 0+8=8 (_axbx> */ 

asm shrl >xbx, #8;" /* BIM 8>>=0 ( - ax) *' 
return ax; 

> 



^pragma eject 



* Function: auto_upshift 
* 

* Description: 

* This boolean function returns true when automatic upshift 

* conditions have been met. 
* 

************************************************************************/ 

static int auto upshif t(void) 

/* if (input speed > upshift _point) */ 

if ((gos > upshiftjxnnt) && <output_speed_f i Itered > 120)) 
< 

i f ( eng i ne_commun i cat i on_act i ve ) 

/* if <(!shiftability_hold) && (!shiftability_holdJI)) */ 
sel_gear_cntr2++; 
return 1; 

> 

> 

return 0; 



#pragma eject 



y#***#***#****************** ********************************************* 
* 

* Function: auto_downshif t 
* 

* Description: 

* This boolean function returns true when automatic downshift 

* conditions have been met. 
* 

************************************************************************/ 



static int auto downshift(void) 

C 

/* if <input_speed < downshif tjx>int) */ 
if (gos < downshif t_po int) 
C 

return 1; 

> 

return 0; 

> 

#pragma eject 



determine_autospl i t_type 



* Function: 
* 

* Description: 

* This function is used to determine if the impending shift type is 

* MANUAL or AUTO. 



static char determine_autosplit_type(char passed_new_gear f char passed_initial_gear) 
( 

register char new_gr = passed_new_gear ; 
register char init_gr = passed_initial_gear; 

if ((shift in_process == FALSE) || (engine_status == ENGINEJIECOVERYJWOE)) 

C 



if 



((new_gr == 
(new_gr == 
(new_gr == 
(new_gr == 
( new_g r == 
(new_gr == 
(new_gr == 
(new_gr == 
(new_gr == 
(new gr == 



1 && 

3 && 

5 && 

7 && 
9 && 

10 && 

8 && 

6 && 

4 && 

2 && 



init_gr 

init_gr » 

init_gr == 

init_gr == 

init~gr == 

init_gr == 

ini t_gr == 

init_gr == 

init_gr == 

ini t_gr == 



2) 




/* 


dn 


*/ 


4) 




/* 


dn 


*/ 


6) 




/* 


<k\ 


V 


8) 




/* 


dn 


V 


10) 




/* 


dn 


V 


9) 




/* 


UP 


*/ 


7) 




/* 


up 


V 


5) 




/* 


up 


*/ 


3) 




/*' 


up 


V 


1» 


/* 


up 


*/ 



shift_init_type = AUTO; 
else 

shift_init_type = MANUAL; 



if ((init_gr <= 4) && (new_gr < init_gr)) 

shift_init_type = MANUAL; /* prevent coasting auto downshifts in low gears */ 



#pragma eject 



* Function: get_automatic_gear 



* 



* Description: 

* This function returns an "automatic" forward gear selection. It 

* also performs driver requested shifts (manual_request) restricted 

* by shaft speeds. If no gears are available in required direction, 

* initial_gear is returned. 



static char get automatic gear(char initial_gear, char manual_request) 

register char new_gear = initial_gear; . 

if (automatic sip -1) 
< 

sel_gear_cntr3++; 

/* initiate or continue an automatic upshift: search up from lowest_forward 
(fastest input speed) for the first available gear that will provide input 
speed below a value (approx upshift rpm, minus an offset for gears that will 



r: 



JSC 



result in a net downshift) */ 
for (new_gear = lowest_forward; 

(new_Tnput_speed(new_gear) > (upshi f t_point - 

(new gear < initial gear ? . 5 1 " 

(shf tbl .up_offset_rpm + auto_dn_of fset_rpm) : shf_tbl .best_gr_of f set))) 
&& (new_gear <= trn_tbl ,highest_forward); 
♦♦new_gear) 
* 

/* if we ran out of gears and the highest is available, it must be due to speed; 

pick highest_forward, input speed will be slower than it is now */ 
if (new_gear > trn_tbl ,highest_forward) 

new_gear = trn^tbl ,highest_7orward; 

desired_gear = new_gear; 
desired_gear_up = new_gear; 

determine autosplit type(new_gear, initial_gear); j 

/* if in gear manual or the selection will underspeed, pick initial_gear */ / -y 
if <((shift_init_type == MANUAL) && (transmission_position « I N_GEAR ) ) || \ r ! ftt k 
(( automat ic_sip « 0) && (new_gear <= initial_gear))) j ^J^wr 

new_gear = initial_gear; 
else 
i 

/* indicate gear change and adjust downshift_point */ 
automatic_sip = +1; 
auto_up_of f set_rpm = 0; 
if <shift_init~type == AUTO) 

auto_dn~of f set_rpm = shf_tbl .dwn_timerj>f fset_rpm; 
else 

auto_dn_of f set_rpm =0; 



C+j.. 



if ((automatic sip != 1) && (initial_gear > lowest_forward)) 
t 

/* initiate or continue an automatic downshift: search down from 

highest_forward (slowest input speed) for the first available gear that will 

provide input speed above a value (approx downshift rpra, plus an offset for 

gears that will result in a net upshift) V 
for (new_gear = trn_tbl .highest_forward; 

(new Input speed(new_gear) < (downshif t_point ♦ 

(new_gear > initial_gear ? shf_tbl .dwn_offset_rpm : shf_tbl .best_grj>f fset))) 

&& (new^gear >= lowest^forward); 

--new_gear) 

* 

/* if we ran out of gears and the lowest is available, it must be ofce to speed; 

pick lowest_forward # input speed will be faster than it is now */ 
if (new_gear <~lowest_forward) 

newjjear = lowestjforward; 

desired_gear_dn = new_gear; 

if (desired_gear_dn < initial_gear) /* must be a down shift or else it */ 



desired_gear = new_gear; 



/* wrongly cancel the desired_up pick. 



determi ne_autospl i t_type(new_gear , initi al_gear ) ; 

/* if in gear manual or the selection will overspeed, pick initial_gear */ 
if (((shift init_type == MANUAL ) && (transmission ^position == I M_GEAR ) ) || 
(( automat ic_sip == 0) && (new_gear >= initial_gear))) 
new_gear = ini tial_gear; 
else 

/* indicate automatic gear change and adjust upshif t_point V 

automat ic_sip a -1; 

auto dnj>7fset_rpm = 0; 

if (shi?t_init~type « AUTO) 

auto_up~of fset_rpm = shf_tbl .up_t imer_of f set_rpm; 
else 

auto up offset_rpm ■ 0; 

> 

> 

return new gear; 

> 

#if (0) 

**** jhis is the select gear based on AutoShift code **** 
^pragma eject 



* Function: get_automatic_gear 
* 

* Description: 

* This function returns an "automatic" forward gear selection. It 

* also performs driver requested shifts (manual_request) restricted 

* by shaft speeds. If no gears are available in required direction, 

* initial_gear is returned. 

* ~ 

static char get automatic gear<char initial_gear, char manual_reojjest) 
register char new_gear = ini tial_gear; 

if (<<automatic_sip == 0) && auto_upshift()) || ( automat ic_sip > 0)) 
sel_gear_cntr3++; 

/* initiate or continue an automatic upshift: search up from I owest_f orward 
(fastest input speed) for the first available gear that Mill provide input 
speed below a value (approx upshift rpm, minus an offset for gears that will 
result in a net downshift) */ 

for (new gear = I owes t_f orward; 

( new_7nput_speed( new_gea r ) > (upshif tj»int - 
(new gear < initial_gear ? 

(shf_tbl.up_offset_rpm * auto_dn_of fset_rpra) : shf_tbl.best_gr_offset))) 
&& (new_gear <= trn_tbl .hi ghest_f orward); 
++new_gear) 

/* if we ran out of gears and the highest is available, it must be due to speed; 

pick hi ghest_f orward, input speed will be slower than it is now */ 
if (new gear > trn_tbl .highest_f orward) 

new_gear = trn_tbl .hi ghest_f orward; 

desired_gear = new_gear; 

determine_autosplit_type(new_gear, ini tial_gear); 

/* if in gear manual or the selection will underspeed, pick initial_gear */ 
if ((shift_init_type == MANUAL) && (transmissionj»si tion == I N_GEAR ) ) 

new_gear = initial_gear; 
else 

/* indicate gear change and adjust downshif t_point */ 

automat ic_sip = +1; 

auto up offsetj-pm = 0; 

if (shift init~tvpe == AUTO) 

auto_dn^offset_rpm = shf_tbl .dwn_timer_of fsetj-pm; 
else 

auto dn offset_rpm = 0; 

> 

> 

else if (((automatic_sip == 0) && 
(auto_downshiftO) && 
(init7al_gear > lowest_f orward)) || 
(automatTc_sip < 0)) 

/* initiate or continue an automatic downshift: search down from 

highest forward (slowest input speed) for the first available gear that will 

provide~input speed above a value (approx downshift rem, plus an offset for 

gears that will result in a net upshift) V 
for (new gear = trn_tbl .hi ghest_f orward; 

(new Input speed(new gear) < (downshift_point ♦ 

(new_gear > initial_gear ? shf_tbl .dwn_of fset_rpra : shf_tbl ,best_gr_of fset))) 

&& (new~gear >= lowest_forward); 

--new_gear) 

* 

/* if we ran out of gears and the lowest is available, it must be ofce to speed; 

pick lowest Jorward, input speed will be faster than it is now */ 
if (new_gear <~lowest_f orward) 

new_gear = lowest_forward; 

desired_gear = new_gear; 

determine_autosplit_type(new_gear, initial_gear); 

/* if in gear manual or the selection will overspeed, pick initial_gear V 



if <<shiftjnit_type = MANUAL) && <trans*issionj»si tion » i 

ne*_gear~« in7tial_gear; 
else 

/* indicate automatic gear change and adjust upshiftj»int 
automat ic_sip » -It- 
auto dn_offset_rpra * 0; 
if (shiftjnit"type = AUTO) 

auto up~of fset_rpra » shf_tbl ,up_timer_of fset_rpm; 
else 

auto up_offset_rpni = 0; 

> 

> 

return new gear; 

> 

#endif 

#pragma eject 



y************************************* ******************************* **** 

* 

* Function: determine_desti nation 
* 

* Description: 

* This function uses tt coasting_latch" to determine if a coasting or 

* skip shift is being attempted. When sensed, the latch is used in 

* the determinej»sej)ts function to effect the base shift points. 
* 

************************************************************************/ 

void determine_destination(void) 
t 

/* if coasting in neutral - force shift points */ 

if (coasting_latch == FALSE) 

if ((last known gear - destination_gear_selected) > 1) /* multi downshift 

if ((destination_gear_selected == 7) 
(dest i nat i on~g e a r_s elected == 5) 
(destination_gear_selected == 3) 
( des t i na t i on~g e a r_s elected == 1 )) 

{ 

des t i na t i on_gea r_se I ec t ed++ ; 
coasting latch = TRUE; 

> 

> 

else 

* if ((destination_gear_selected - lastJtnown_gear) > 1) /* multi upshift 

C 

if ((destination_gear_selected == 10) 
(destination~gear_selected == 8) 
(destination~gear~selected == 6) 
(destination~gear selected == 4)) 

C 

dest i nat i on_gear_selected- - ; 
coasting latch = TRUE; 

> 

> 

> 

> 

else 

if (shift_in_process == FALSE) 
coast ing_latch = FALSE; 



^pragma eject 



* Function: deternnne_manual_shif t j>ts 

* Description: 
* 

************************************************************************/ 

static void determinejnanual_shif t_pts(void) 
t 

if (coasting latch == FALSE) 
< 

if (<last_known_gear == 1) 
( last_known_gear == 3) 
( last~kr»own_gear ==5) 
( last _known_g ear == 7) 
( last~known~gear ==9)) 
auto_dn~rpm =~1325; /* manual downshifts */ 

else 

auto up rpm = 1375; /* manual upshifts V 

> 

> 

#pragma eject 



* 

* Function: detemrine_base_auto_shif tj»ts 

* ~ ~" 

* Description: 

* This function determines the base up and down shift points based on 

* the position of the throttle. These base points will be used in the 

* calculation of the upshift _jx>int and the downshift _point. 
* 

* The anti -hunting calculations have been moved to this function since 

* these calculations are now throttle dependent. 
* 

static void determine base auto shift _pts(void) 
( 

if (pet demand at cur sp > 0) 

i 

/* auto up_rpm = shf_tbl ,auto_up_lo_base ♦ 

(7shf_tbl.aut_up_rpm - sh f _t bT . au t o_up_ I o_base ) * Xthrottle) * 

_cx = shf_tbl .aut_up_rpm - shf_tbl ,auto_up_lo_base; 
~bx = pct_demand_at_cur_sp; 
asm mulu _cxdx, _bx; 
asm divu _cxdx, #100; 

auto_up_rpm = shf_tbl.auto_up_lo_base ♦ _cx; 

/* check for RTD requirement */ 
if (pct_demand_at_cur_sp > 90) 

auto~up_rpm~+=~shf_tbl.auto_rtd_offset; 

/* auto dn rpm = shf_tbl .auto_dn_lo_base ♦ 

(Tshf_tbl.aut_dwn_rpm -~shf_tbl ,auto_dn_lo_base) * Xthrottle) 

_cx = shf_tbl.aut_dwn_rpm - shf_tbl ,auto_dn_lo_base; 
~bx = pct~demand_at_cur_sp; 
asm mulu ~cxdx, _bx; 
asm divu _cxdx, #100; 

auto dn rpm = shf_tbt .auto_dn_lo_base + _cx; 

> 

else 
t 

auto_up_rpm = shf_tbl .auto_up_lo_base; 
auto~dn"rpm = shf tbl .auto_dn_lo_base; 

de t e rm i nejnanua I _sh i f t_p t s ( ) ; 

if (shift in_process) 

/* reset antihunt_counter */ 
antihunt_counter = 0; 

/* allow the knob display to flashed any new desired gear */ 
flash desired allowed = TRUE; 

> 

else 
C 

/* reset shift in process flags and update antihunt_counter */ 

automat ic_sip » 0; 

if (antihunt counter < 255) 

C 

♦♦antihunt counter; 
/* flash desired allowed * FALSE; V 
> 

/* look for upshift anti-hunt reset conditions V 

if ((antihunt counter * (US PER LOOP/1000)) >= shf_tbl .of fset_time) 

< 

/* check for last shift * upshift effects V 

if (auto_dn_of fset_rpm == shf_tbl ,dwn_timer_of fset_rpra) 

aut o_dn_of f set_rpm = shf_tbl.dwn_offset_rpm; 
else if~((auto_dn~offset_rpm == shf_tbl .dwnj>f fset_rpm) && 

(input_speed_f7ltered~> auto_oV\_rpra + shf_tbl .dwn_reset_rpm)) 

auto_dn_of fset_rpm = 0; 

/* check for last shift = downshift effects */ 

if (autojjp_offset_rpm » shf_tbl.up_timer_offset_rpra) 



auto_up_offset_rpa = shf_tbl .up_of f s«t_rp«; 
else if ( (auto_up~of f set_rpa =* shf.tbl .up_of fset_rpm) it 

<ir^xjt_speed_fTltered*> auto_up_rpm - shf_tbi.up_reset_rp»)) 

auto_up_offset_rp« » 0; ^ 

/* allow the knob display to flashed the desired gear */ / 
if ((<desired_gear > destination_gear_s elected) && (gos < (upshif t_point ♦ 25))) || J 
((desireofgear < destination'gea reelected) && <gos > (downshift_point - 25)))) 
f lash_desired_allowed » FALSE;" 
else 

flash desired_allowed = TRUE; 



, set the shift points based on throttle and determined offsets V 
upshif t_point = auto_up_rpm ♦ auto_up_of f set_rpm; 
downshi f t^point = auto_dn_rpm - auto_dn_of f set_rpra; 

/* check that the calculated shift point is reasonable V 
if (upshif t_point > shf_tbl .man_dwn_sync_rpm) 
upshi f t_point = shf_tbl .man_dwn_sync_rpm; 

if (downshiftjx>int < shf_tbl .man_up_sync_rpm) 
downshi f t_point = shf_tbl .man_up_sync_rpm; 



#pragma eject 



/ 



* Function: select_gear 
* 

* Description: 

* This is the root function for the periodic task SELECT_GEAR. Each 

* Loop begins by checking the manual up/down buttons. Then, based on 

* selectedjnode and output shaft speed, a *get_. . ..gear 1 function is 

* called to update destination_gea reelected. 



void select_gear(void) 

C char manual request; /* current manual request <♦/- 1) */ 

static uchar enable_gcw_calc; /* diagnostic - delete later II*/ 

enable_gcw_calc * FALSE; /* diagnostic - delete later II*/ 

shf_tbl = ini_shf_tbl; /* initialize the shift table */ 

destination_gea reelected = 1; 
desired_gear = 1; 

/* initialize file scope variables */ 

w1 = 3; 
w2 = 4; 
w3 = 5; 
w4 = 6; 

lpf_output_speed = output_speed; 

upshift_point = shf_tbl .autjjp_rpm; 

downshiftjx>int = shf_tbl . aut_dwn_rpm; 

auto up offset_rpm = shf_tbl .up_timerj>f fset_rpm; 

auto^dn'offset^rpm = shf^tbl .dwn_timer_of fset_rpm; 

I owes t Jf orwa rd~= I M I T I AlTsT ARTJ5EAR ; 

automat ic_sip = 0; 

antihunt_counter = 255U; 

coast ing~latch = FALSE; 

f lash_desired_allowed = TRUE; 

x start_periodic<); 
while (1) 

* mda_output_filter<); /* update our filtered output speed */ 
manual_request = 0; 
deterntTne_base_auto_shi f t _pts< ) ; 

/* set destination_gear_selected from function(s) appropriate for selectedjnode */ 

suitch(selected mode) 

i 

case REVERSE_M00E : 

case DRIVE HOOE: 

if <(forward_last == TRUE) && (low_speed_latch == FALSE)) 

* destination_gear_selected ' get_automatic_gear(destination_gear_selected ( manual_reojjest); 
determine destination ); 

sel gear_cntr1-M>; /* debug use only - delete later */ 

> 

break; 

case LOW HOOE: 
case HOLD HOOE: 
case NEUTRAL J400E: 
case PARK MODE: 
case POWER_UP_MOOE: 
case POWER DOWN MODE: 

case DIAGNOSTIC TESTJ400E: . 

/* prevent transient selection upon mode change (these modes ignore it) / - 

destination_gea reelected = 0; 

break; 

default: 

/* invalid mode: do nothing */ 
break; 

> 

x syncjjeriodicCUS.PER.LOOP); 



> 

x end _periodicO; 

> 



* 

* Unpublished and confidential. Not to be reproduced, 

* disseminated, transferred or used without the prior 

* written consent of Eaton Corporation. 
* 

* Copyright Eaton Corporation, 1991-94. 

* AU rights reserved. 



* Filename: seq_shft.c96 (AutoSplit) 
* 

* Description: 

* The functions in this file will perform the required system 

* level operations for implementing Sequence Shift. 
* 

* Part Number: <none> 
* 

* $Log: R:\aselect\vcs\seq_shft.c9v $ 
* 

* Rev 1.0 12 May 1994 16:26:00 markyvech 

* Initial version 
* 



* Header files included. 
* 



# include <exec.h> /* executive information */ 

include <c regs.h> /* ICR internal registers */ 

#include <wwslib.h> /* World Wide Software Library V 

#include "cont sys.h" /* control system information */ 

#include "conjT939.h H /* Defines interface to engine communications info 

#include "con o_s.h M /* control output signal information V 

#include ■■drl~cmds.h M /* drivel ine commands information V 

#include "sel'gear.h" 

#include "shf'tbl.h" /* Contains information relative to engine V 

#include "trn'tbl .h" /* transmission table information V 
#include "trns act.h" /* transmission information */ 



* 

* #defines local to this file. 
* 

* 

* publics. 
* 



uchar sq_sh1; /* debug 
uchar sq_sh2; /* debug 
uchar sq_sh3; /* debug 



counter - delete later */ 
counter - delete later */ 
counter - delete later */ 



* 

* Constants and variables declared by this file. 

static uchar coast mode; /* allows vehicle to coast in low gears */ 
static uint mode_tTrae_out; /* time to disengage or synchronize a gear */ 



#pragma eject 



* Function: ini tialize_sequence_shift 

* Description: 

* This function initializes the variables to be used in sequence_shif t. 
* 

void initialize sequence_shif t(void) 
( 

shift_type = UPSHIFT; 
shift in_process - FALSE; 

> 



#pragma eject 



/*********** *****************^*********^*************#******** ***** • *** 
# 

* Function: shif t_initiate 

* ~ 

* Description: 

* This function begins the shift sequence by setting up the 

* transmission to pull to Neutral, commands the electronic engine 

* controller to go to zero torque and prepares the clutch to disengage 

* if required. 
* 

********************************************************************** 

static void shift ini t iate(void) 

if (destination gear < last_known_gear> /* determine shift type */ 
C 

if (pet demand at cur sp > 5) 
shi ft" type =~POWER_DOUN_SHl FT; 

else 

shift type = COAST DOVN_SHlFT; 

> 

else 

shift_type = UPSHIFT; 



/* Attempt to get out of gear for 3 seconds then return fuel to driver 

/* 

if ( (engine_status != ENGINEERED I P_MOOE) && (modest ime_out > 0) ) 

mode_time~out = 300; 
if < (mode_tTme_out > 0) && (• coast jnode) ) 

--mode time out; 

V 

mode_time_out = 300; /* force value for now */ 
/* initiate a normal shift sequence */ 

/* (do not request engine fueling with engine brake on) */ 
eng_brake_command = ENG_BRAKE_OFF; /* eng brake: zero torque */ 

if ((Ipf output speed < shf tbl .min_output_spd) || 
(clutch_state == DISENGAGED) || 
(mode_time_out == 0) | | 
((destination_gear < 4) && 
(coastjnode) && 

(accelerator_pedal_posi tion <= 5) && 
(shift type != UPSHIFT))) 

< 

engine commands = ENGINE_FOLLOWER; 

> 

else 

engine_commands = ENGINEERED IP; /* engine: bring torque to zero * 

coast mode = FALSE; 

> 

> 

tfpragma eject 



* Function: synch r on ize_gear 
* 

* Description: 

* This function assists the sychronizing of the transmission if 

* possible, by controlling input shaft speed through the use 

* of the clutch, power synchronizer, or inertia brake. It Mill 

* offset sync windows if the shift is taking longer than expected. 

* It will assist with engagement at rest if the clutch is dragging. 
* 

static void synch ronize_gear< void) 
( 

/* turn on engine brakes (J1939) if engine brake assisted shift is requested 

if (eng brake assist) 

eng_brake_cotnnand = ENG_BRAKE_FUIL; 
else 

eng_brake_conmand = ENG_BRAKE_OFF; 
/* Attempt to engage for 6 seconds then return fuel control to the driver V 

/* 

if ( (engine_status != ENG I NE_SYNC_MOOE ) && <mode_time_out > 0) ) 

mode time~out = 600; 
if ( (mode_tTme_out > 0) && < ! coast jnode) ) 

--mode time_out; 

*/ 

mode_time_out = 600; /* force value for now */ 

if <<lpf output speed < shf tbl.min_output_spd) || 
(clutch_state == DISENGAGED) || 
<mode_t7me_out ==0) | | 
((destinatTon_gear < 4) && 
(coastjnode) && 

(accelerator_pedal_position <= 5) && 
(shift type 1= UPSHIFT))) 

i 

engine commands = ENGINE_FOLLOUER; 

> 

else 
< 

engine_commands = ENGINE_SYNC; 
coast mode = FALSE; 

> 



#pragma eject 



* Function: conf irm_shift 
* 

* Description: 

* This function finished the shift; shif t_in_process is set FALSE. 
* 

static void conf irm^shi ft (void) 
< 

engine commands = ENGINE RECOVERY; /* engine: finish torojje return 

eng brake command = ENCJjRAJCE_OFF; /* eng brake: zero torojie V 

mode_time~out = 300; ~ /* reset for next shift */ 

shif t_in_process = FALSE; 
coastjnode = TRUE; 



#pragma eject 



************************************************************* 

* Function: sequence_shift 
* 

* Description: 

* This function calls the appropriate procedures to perform the 

* operations of Sequence_Shift depending on the correct state of 

* the shift process. 
* 

void sequence_shift(void) 

C if (destination gear == NULL_GEAR) /* system has reset: do not start a shift 
i 

engine commands = ENG I NE_FOLLOWER ; 
eng brake command = ENGjjRAKE JDLE; 

) 

else 

if <(transmission_position == 0UT_0F_GEAR ) && 
((engine status == ENGINE SYNCJ400E) || 
(engine~status == ENG I NE_PRED I P_MODE ) ) ) /* forces call shift_imtiate<) 

i 

sq_sh1++; 

synchronize gear(); 

> 

else 

if (((engine status == ENGINE SYNCJ400E) || 

(engine~status == ENGINE_REC0VERYJ400E)) && 
(destination_gear == current_gear) && 
(transmission_position == IN_GEAR)) 

C 

sq_sh2++; 

conf irm_shift(); 

> 

else 

if (((destination gear != current_gear) && /* auto splitter V 
(low_speed_latch == FALSE) && 
(automatic~sip != 0) && 
( transmission jxisit ion « IN_G£AR)) || 
((transmissionjjosition == 0UT_0FJSEAR) && /* manual shift V J 
(lowspeed_latch *= FALSE))) 

C 

shif t_initiate(); 
sq_sh3++; 

> 



* 

* Urpublished and confidential. Not to be reproduced, 

* disseminated, transferred or used without the prior 

* written consent of Eaton Corporation. 
* 

* Copyright Eaton Corporation, 1994. 

* All rights reserved. 
* 

************************************************************************ 
* 

* Filename: trm^acT.c96 (AutoSplit) 
* 

* Description: 

* This modules monitors and controls the transmission actions. 
* 

* Part Number: <none> 
* 

* $Log: ??? % 
* 

* Rev 1.0 3 May 1994 13:35:04 markyvech 

* Initial revision. 



* Header files included. 



# include <exec.h> 
#include <c_regs.h> 
#include <kr_sfr.h> 
#include <kr~def.h> 
^include <wwslib.h> 
include "drl_cmds.h n 
include "trns act.h" 
#include "trn.tbl.h" 
#include "calc_spd.h" 
#include "cont~sys.h" 
#include "sel gear.h" 
#include »con7l939.h" 



/* executive information */ 

/* KR internal register definitions 
/* defines the kr special function registers */ 
/* 80c196kr bits, constants, and structures */ 

/* engine control interface */ 
/* interface to this module */ 
/* transmission table */ 



* Variables declared by this file. 



register unsigned char transmissionjx>sition; 

unsigned char low_speed_latch; 

unsigned char forward_last; 

unsigned char splitter_hi; 

unsigned char splitter_lo; 

unsigned char spl i tter_timer; 

unsigned char spl itter_within_sync; 

unsigned char aux_box; 

signed char g_ptr_old; 

signed char current_gear; 

signed char last_known_gear; 

unsigned int gearjn_timer; 

unsigned int gear_out_timer,v 

unsigned int abs_trans_sync_error; 

unsigned int trans_window_calc; 

signed int input_speedjnodi f ied; 

signed int trans_sync_error; 

signed int range_error; 

signed int range_cal; 

signed int splitter_tc; 

signed long isdgf; 

signed long gros; 

signed char gj>tr; 



#pragma eject 



* #defines and constants local to this file. 



#define US PER LOOP 10000U 
#def ine RKM US>ERJOOP 40000U 



static const 
C 
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#pragma eject 
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#pragma eject 



* 

* Function: Ini tialize_Trans_Action 
* 

* Description: 

* This function initializes those module variables that must be set to a 

* know state on power up or reset. 



void initialize trans action(void) 
< 

gear_in_timer = 200; 
gear_out_t imer = 200; 
g_ptr_old = 0; 
current_gear « 0; 
last_known_gear ■ 0; 
destination_gear = 0; 
transmissionjxjsition = 0UT_0F_GEAR; 
low_speed_latch = TRUE; 
splitter_lo = 0; 
splitterjn = 0; 



#pragma eject 



* Function: detenaine_gear 



************************************ 



* Description: . . 

* This function determines the current gear that the transmission 

* is in. When conditions are such that the current gear can not be 

* determined it will be set to a default, (0). 
* 

* Mote: When the error across the transmission is near zero for some 

* time for a given test gear then it will be deemed in that gear. 
* 

* error = input_spd/gf (gear) - grCgear] * os 



void determine gear(void) 
< 

#define BIN 8 256 /* 2 BIN 8 V 

#define MAX ERR 4000 /* RPM */ 

#def ine WINDOW 30 /* 30 RPM V 

#define GEAR IN_TIME LEVER 30 /* 300 MSEC V 

#define GEAR~IN TIME AUTO 20 /* 200 MSEC */ 

#define GEAR~0UT TIME 8 /* 80 MSEC */ 

#def ine ERROR FUDGE_FACTOR 3 /* RPM */ 

/* 

signed long isdgf; 
signed long gros; 
signed char g_ptr; 
*/ 



#if (0) 

g_ptr = -1; /* lowest reverse ratio */ 

/* isdgf = (((signed long) i nput_speed_f i I tered) * BIN_8) / trn_tbl .GF Cgj>tr ♦ GR_0FS3 ; */ 
bx = (signed int)( i nput_speed_f i I tered); 
~cx = BIN_8; 

jix = trn_tbl.GFtg_ptr + GR_0FS] ; 
asm mul _cxdx, _bx; 
asm div _cxdx, _ax; 
isdgf = _cx; 

/* gros = (((signed long) output_speed_fi Itered) * trn_tbl .GR[g_ptr ♦ GR_0FS] ) / BINJ2; V 
bx = (signed int)(output_speed_f i Itered ♦ ERROR_FUDGE_F ACTOR ) ; 
~cx = trn^tbl.GRCg^ptr ♦ GR_0FSl"; 
~ax = BIN~8; 
asm mul _cxdx, _bx; 
asm div "cxdx, _ax; 
gros = _cx; 

trans_sync_error « (isdgf - gros); 
if (isdgf > gros) 

abs_trans_sync_error = (unsigned int)( isdgf - gros); 

else 

abs trans_sync_error = (unsigned intXgros - isdgf); 

#endif 

abs_t rans_sync_error a MAX_ERR; 
trans_window_calc =0; 

if (abs trans_sync_error > trans_window_calc) /* if not in reverse, check for forward V 
i 

g_ptr = 1 ♦ trn_tbl.highest_forward; 
abs trans sync error = MAX_ERR; 

while ((abs trans_sync_error > trans_window_calc) && (g_ptr != 0)) 
( 

/* iidgf"=' (((signed long) input_speedji Itered) * BIN J) / trn_tbl .GF (g_ptr ♦ GR.0FS1; 
bx = (signed int)(input_speed_f i Itered); 
"cx = BIN_8; 

"ax = trn_tbl.GFCgj>tr ♦ GRJDFS}; 
asm mul _cxdx, _bx; 
asm div _cxdx,._ax; 
isdgf = _cx; 

/* gros » (((signed long) output speed filtered) * trn_tbl.GR[gj>tr ♦ GROFS]) / BINJJ 
Jw * (signed int)(output_speed_fi Itered ♦ ERRORJUO GE_F ACTOR); 
"cx « trn_tbl.GR[g_ptr ♦ GR_0FsT; 



_ax * BIN_8; 
asn nut _cxdx, _bx; 
asm div ~cxdx f _ax; 
gros ■ _cx; 

trans_sync_error » isdgf - gros; 
if (isdgf > gros) 

abs_trans_sync_error a (int)< isdgf - gros); 
else 

abs_trans_sync_error = (int)(gros - isdgf); 
/* calculate trans sync error window based on gear pointer */ 



bx = WINDOW; 
"cx = BIN_8; 

"ax = trn~tbl.GF[g_ptr + GRJ3FS] ; 

asm mulu _cxdx, _bx; 

asm divu _cxdx # _ax; 

t r ans_y i ndo w_c a I c = _cx; 



/* BIN 0 */ 
/* BIN 8 */ 
/* BIN 8 */ 

/* make WINDOW BIN 8 */ 

/* divide by front ration BIN 8 */ 

/* BIN 0 */ 



if <g_ptr == 0) /* 1* in neutral, force values */ 

C 

abs_trans_sync_error = MAX_ERR; 
trans_sync_error * HAX_ERR; 
trans_window_calc = 0; 
isdgf "= 0; 
gros = 0; 

> 

f ((abs trans sync error > trans window calc) || /* Must have error for some */ 
(<g_ptr != current gear) && (current_gear != 0))) /* before neutral state is V 

^ /* recognized, */ 

if (gear_out_tiiner == 0) 



transmission_position = 0UT_0F_GEAR; 
current_gear = 0; 



j 



else 

gear out timer--; 

> 

else 

gear_out_timer = GEAR_OUT_TIME; 



if (<g_ptr != g_ptr_old) || (g_ptr ==0) || 
((accelerator_pedal j>osition < 5) && 
(input_speed < 800) && 
(tow_speed_latch == FALSE))) 

if ((engine commands == ENGINE_SYNC) || 
(engine~commands == ENGINEERED IP) ) 

< 

if (shift init type == AUTO) 

gear_in"timer = GEARJN_TIME_AUTO; 
else 

gear in_tiraer = GEARJN_TiKE_LEVER; 

> 



/* if not in gear, init gear in timer. 

/* Rule out picking a gear when coasting 

/* down in neutral and no throttle. 

/* (Found that idle speed and output speed 

/* would natch a gear even when in neutral.) 



else 

if (gear in timer »■ 0) 
t 

current_gear = g_ptr; 
lastJcnown_gear = g_ptr; 
transmission_position = IN_GEAR; 

if ((gos current_gear > (downshift _point ♦ 100)) && 
(low~speed_latch == TRUE)) 

< 

low_speed_latch = FALSE; 
destination_gear = current_gear; 
destination~gear_selected = current_gear; 
desired_gear = current_gear; 
lowest Torward * current_gear; 

> 

else 



if (low speedjatch == TRUE) 
( 

destination_gear » lowest_forward; /* was set to 1 

destination~gear_selected~s lowest_forward; /* was set to 1 
desired_gear ■ lowest_forward; ~ /* was set to 1 

shift in_process » FALSE; 

> 

> 

if (last known_gear > 0) 

forward_last~* TRUE; 
else 

forward last = FALSE; 

> 

else 

gear_in_timer--; 

g_ptr_old = g_ptr ; 

if (output speed filtered < 80) /* If stopped - current_gear = first. 
C 

current_gear = 0 ; 

transmission ^position = 0UT_0F_GEAR; 
low speed latch = TRUE; 

> 

> 



/* Record REV/ FOR data for 
/* use in the select_gear 
/* module. 



#pragma eject 



* Function: determine_range_status 
* 

* Description: 

* This function determines the status the of range. 
* 

* rng_err = rear_counter_spd - (range_ratio * output_spd) 

* ~ 

* res = 54/21 * 44 * os (for low range) 
* 

* res = 42/51 * 44 * os (for high range) 



void determine range status(void) 
C 

#define BIN 12 4096 /* 2 bin 12 V 

#define HI RANGE GEAR 7 

#define LO~RANGE~CAl 10532 /* 54/21 BIN 12 V 

#define HI~RANGE~CAL 3373 /* 42/51 BIN 12 V 

#define RANGE WINDOW POS 30 /* 30 RPM V 

#define RANGE~WINDOW_NEG -30 /* -30 RPM V 

if (destination_gear >= HI_RANGE_GEAR) 

range_cal = HM*ANGEJ:al7 
else 

range_cal = LO_RANGE_CAL; 

range error =(((aux_speed * BIN_12) 

- (range_cal * output_speed_f i I tered) )/BIN_12); 

if ((range error > RANGE_WINDGWJ>OS) || (range_error < RANGE_WINDOW_NEG) 

aux_box = 0UT_0F_GEAR;~ 
else 

aux_box = IN_GEAR; 



#pragma eject 



/*******^********************************************^*********** ****** 
* 

* Function: detennine_spli tter 
* 

* Description: 

* This function determines the correct state for the splitter. 

* Once the transmission is in gear both splitter solenoids are turned off 
* 



void determine splitter state(void) 
C 

^define SPLTR SYNC OFFSET POS 80 /* 80 RPM */ 
#define SPITR~SYNC OFFSET NEG -80 /* -80 RPM */ 
#define SPLITTER t7mE " 20 /* 200 MSEC */ 



if (engine status == ENGINEERED I PJ40DE) 

splitter~timer = SPLITTER_TIME; 
else 

if (splitter_timer > 0) 
splitter_tTmer--; 



splitter_tc = SPLITTERJT_TA8LECdestination_gear ♦ GR_0FS1; 

input speed modified = (signed int)( input_speed_f i Uered) ♦ 

" ( i nput_speed_accel J i 1 1 ered/( 1 000/spl i t terete ) ) ; 

if ((input speed modified < (gos signed + SPLTR_SYNC_OFFSET_POS)) && 

(input~speed"modified > (gos_signed ♦ SPLTR_SYNC_OF FSET_MEG) ) ) 
splitter~within_sync = TRUE; 
else 

spli tter_wi thin_sync = FALSE; 



if ((splitter_timer > 0) | | 

((transmission jx>sition == IN GEAR) && /* debug - delete later 

(shift_in_process == FALSE)) || /* debug - delete later 

(low_speed_latch == TRUE) | | 

(engine_status == ENG I NE_RECOVER Y_MOOE ) || 

((shift init type MANUAL) && 
(engine_status == ENGI NE_SYNC_MOOE ) ) || 

((shift init type == AUTO) && 
( engines tatus == ENGI NE_SYNC_MO0E ) && 
(splitter within_sync == TRUE))) 

< 

splitter hi = SPLITTER HI TABLE [destinat ion_gear ♦ GR_OFS]; 
splitter~lo = SPLITTERJ.O~TABLE [destinat ion_gear ♦ GRJ)FSJ; 

> 

else 
i 

splitterjn = OFF; 
splitter'lo = OFF; 

> 



^pragma eject 



* Function: Transmission_Action 
• 

* Description: 

* This funtion controls the states of the system ouput devices. 
• 

void transmission act ion( void) 
i 

initial ize_trans_action<); /* initialize variables */ 

x start_periodic(); 

while (1) 

C 

determine gear(); /* calculate the current gear */ 

determine'range statusO; /* determine range state */ 

determi r*f splitter_state(); /* determine correct state for splitter */ 

x sync _periodic(US PER LOOP); 

x_end_per i odi c( ) ; 
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